Select Code to Download

my $p = sub {
    my $n = 2;
...
while ((my $n = $p->()) < 500) {
    print "$n\n";
}

$g = sub { $n++ };

perl -e 'print sub { "Hello @{[shift]}!\n" }->("World")'