#!/usr/bin/perl

use strict;


main();

sub main {


#while is the most basic loop. It evaluates one test for each loop, and will continue until it fails.


###this will loop forever...
#    while (1) {
#	print "true!\n";
#    }


    my $ctr = 10;
    while($ctr > 0) {
	print --$ctr . "\n";
    }

}