$SIG{__WARN__} = \&log_error;
    $SIG{__DIE__} = sub { log_fatal_error( @_ ); exit 1 };

##</code><code>##

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