BEGIN{
    *toedi = sub{
        local $, = "\n";
        print "Content-Type: text/plain; Charset=UTF-8\n\n", "Fehler-Report", @_;
    };
    $SIG{__WARN__} = *toedi;
    $SIG{__DIE__} = *toedi;
}