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