BEGIN{
open LOGFILE, ">>", "/path/to/log" or 
        die "cannot open logfile: $!";
$SIG{__DIE__}= sub {
        print LOGFILE $_[0];
}
$SIG{__WARN__}= sub {
        print LOGFILE $_[0];
}
}