Select Code to Download

#!/usr/bin/perl -w
BEGIN { $SIG{__WARN__} = sub {
...
} }
sub FOO() { 23 }
sub FOO() { 42 }

#!/usr/bin/perl -w
sub FOO() { 23 }
BEGIN { no warnings 'misc'; undef &FOO if ! @ARGV }
sub FOO() { 42 }