#!/usr/bin/perl -w
use strict;
use warnings;
use Fcntl qw(:DEFAULT :flock);
my %env = ('server_errorlog' => 'testerror.log',);
if ($^O =~ /mswin/i) { $env{chmod_dateien} = 0666; }
else { $env{chmod_dateien} = 0600; }
local $SIG{__DIE__} = sub {
        (my $error = shift) =~ s/[\r\n]//g;
        &errorlog_eintrag ($error,7);
        close (STDERR);
};
require "math_modul2.pl";
sub errorlog_eintrag {
        my $meldung = shift;
        my $level = shift;
        my %apache_loglevel = (
                1       => 'debug',
                2       => 'info',
                3       => 'notice',
                4       => 'warn',
                5       => 'error',
                6       => 'crit',
                7       => 'alert',
                8       => 'emerg',
        );
        if (sysopen (my $errorlog,
                        $env{server_errorlog},
                        O_WRONLY|O_APPEND|O_CREAT,
                        $env{chmod_dateien}))
        {
                print $errorlog '[' . localtime () .
                        '] [' .
                        $apache_loglevel{$level} .'] [client ' .
                        (defined $ENV{'REMOTE_ADDR'} ? $ENV{'REMOTE_ADDR'} : 'localhost') .
                        '] ' . $meldung . "\n";
                close $errorlog;
        }
}

use strict;
use warnings;
sub test {
        use Math::BigFloat;
}
return 1;