Select Code to Download

sub foo { print "hello world" };

...
BEGIN {
  *foo = sub { print "hello world" };
}

#!/usr/bin/perl
use strict;
...
    }
    print "\n";
}

1 5 10
2 6 11
...
8 12 17
9 13 18
10 14 19