Select Code to Download

sub f {
   my ($arg1, $arg2) = @_;
   ...
}

sub f {
   my $arg1 = shift;
   my $arg2 = shift;
   ...
}

for (my $i=1; $i<=100; $i+=2) {    # 1, 3, 5, ..., 99