Select Code to Download

$main::SIG{__DIE__} = \&some_function; # when does this get run?

#!/usr/bin/perl

...
#die "horribly";

#BEGIN { die "horribly"; }