Select Code to Download

wrap_system(qw(perl -u -e 1)) or die "$@\n"
#perl exited with status 0 after receiving signal 6 (core dumped)

sub wrap_system {
    if ( 0 == system { $_[0] } @_ ) { return 1 }
...
    return;
}