package TeeStdErr;
use Fcntl qw(:flock);

my $log_file = "$ENV{DOCUMENT_ROOT}/state/err.log";

sub TIEHANDLE { my $i; bless \$i, shift } 

sub PRINT {
        my $r = shift;
        
        local *STDERR; 
        untie *STDERR;

        print STDERR @_; 

        if ( open my $FH, '>>', $log_file ) { 
                flock $FH, LOCK_EX;
                print $FH "" . localtime, "\t", "ErrorLog: ", @_; 
                close $FH;
        }
        else {
                warn "Open $log_file '$!'", @_; 
        }
}

package main;
        
$| = 1; 

# Tee für STDERR
tie *STDERR, "TeeStdErr";