Select Code to Download

BEGIN { *CORE::GLOBAL::system = sub {
    if ( 0 == CORE::system { $_[0] } @_ ) { return 1 }
...
}; }

system(qw(perl -u -e 1)) or die "$@\n";