local $SIG{__DIE__} = sub {
    open LOGFILE, '>>logfile'; print LOGFILE 'die: ', @_;
    die("Died, errors logged to file\n");
}
local $SIG{__WARN__} = sub {
    open LOGFILE, '>>logfile'; print LOGFILE 'warn: ', @_;
    close LOGFILE;
}