Select Code to Download

$ perl -Mstrict -Mwarnings -E '
    my %a=();
...
FIRST
SECOND
THIRD

$ perl -Mstrict -Mwarnings -E '
    my @items_to_print_outside_loop;
...
FIRST
SECOND
THIRD

$ perl -Mstrict -Mwarnings -E '
    sub print_outside_loop { print "@_\n" }
...
FIRST
SECOND
THIRD