BEGIN { 
    $SIG{__DIE__} = sub { mail( $_[0] ) };
}