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