BEGIN{
  open LOG, ">>logdatei" or die $!;
  $SIG{_ _DIE_ _} = sub {
    print LOG "[".(scalar localtime)."] fehler: @_\n";
    print "Es trat ein Fehler auf! Siehe Log-Datei!\n";
    exit 1;
  };
  open STDERR, ">&LOG";
}