#!/usr/bin/perl -w
$| = 1;
use strict;
use warnings;
my $error_vorher = (!-z '/home/meinpfad/logs/error.log' ? 'EINTRAG' : 'leer');
require 'test2.pl';
&fehlersub ('foo');
my $error_nachher = (!-z '/home/meinpfad/logs/error.log' ? 'EINTRAG' : 'leer');
print "Content-Type: text/plain\n\nHallo!
vorher: $error_vorher
nachher: $error_nachher";