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