$SIG{__DIE__} = sub { # your handler here, message in $_[0] }