$ perl -e 'sub {die}'