Statement Perl

$counter = 10;
do 
{
   print "$counter ";
} until ( --$counter == 0 );
print "\n";