Select Code to Download

#!/usr/bin/perl --
BEGIN {

$ cat junk12.pl
warn "hello";
...
warn "hello";
BEGIN { warn "hello "; }
warn "hello";

$ perl junk12.pl
hello  at junk12.pl line 2.
...
hello at junk12.pl line 3.
hello at junk12.pl line 5.