programming-examples/perl/Statement/The while Loop.pl

#!/usr/bin/perl
$num=0;               
while ($num < 10){    
    print "$num ";
    $num++;   
}
print "\nOut of the loop.\n";