#!/usr/bin/perl -w
$| = 1;
use strict;
use warnings;
use Fcntl qw(:DEFAULT :flock);
my %env = (
        chmod_dateien => 0666,
);
print "Content-Type: text/html\n\nHallo!<br><br>";
my @errorstack;
local $SIG{__WARN__} = sub {
        (my $error = shift) =~ s/[\r\n]//g;
        push @errorstack,$error;
        sysopen (my $errorlog,'errorlog.txt',O_WRONLY|O_APPEND|O_CREAT,$env{chmod_dateien});
        if ($! eq '') {
                print $errorlog '[' . localtime() . '] [error] [client ' . (defined $ENV{'REMOTE_ADDR'} ? $ENV{'REMOTE_ADDR'} : 'n.a.') . '] ' . $error . "\n";
                close $errorlog;
        }
};
print "Vorher: @errorstack<br>\n";
require 'test2.pl';
&fehlersub ('foo');
print "Nachher: @errorstack<br>\n";