Help for this page

Select Code to Download

Select or download this

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