$SIG{__DIE__}=sub{ warn "Fehler: $_[0]" };