The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#=loop1.pl - Perl 5 Version
use strict;

for( my $i = 1; $i <= 10; $i++) {
	print "$i\n";
}