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

$counter = 1;

do 
{
   print "$counter ";
} while ( ++$counter <= 10 );

print "\n";