$SIG{__DIE__} = sub { print "good-by\n" };
eval {
    die "adios";
}