#!/usr/bin/perl -w

$| = 1;
use strict;
use warnings;

our $SOUT;

BEGIN {
    *SOUT = *STDERR;
    open( $SOUT, ">> stderr.log");
}

sub DaKommt
der Fehlerhfate Code ödäää?

END{
    close( $SOUT );
}
1;