Select Code to Download

sub moo { print("moooooain\n"); }
package cow;
sub moo { print("moooOoooOOoooo\n"); }  # <--- prints this
eval 'moo();';

> echo "print(__PACKAGE__, $/);" > script.pl
> perl -e "package foo; do 'script.pl';"
main