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