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

#=while2.pl - while-Schleife in Perl 6
use v6;
my $i = 1;
while $i <= 10 {
	say $i;
	$i++;
}