while loop

#!/user/bin/perl
$counter = 0;
while ( $counter < 10)
{ print "Still counting .. $counter \n " ; $counter ' }