> perl -e ' use subs qw(exit); sub exit {}; exit(1); print "yes\n";'
yes