programming-examples/perl/Statement/Using the do-until repetition structure.pl

$counter = 10;

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

print "\n";