use POSIX;

 open(STDOUTFAKE, ">&STDOUT");
 open(STDOUT, ">>$globalLog") || die "Kann $globalLog nicht öffnen!";
 
 open(STDERRFAKE, ">&STDERR");
 open(STDERR, ">>$globalLog") || die "Kann $globalLog nicht öffnen!";
 open(GLOG, ">>$globalLog") || die "Kann $globalLog nicht öffnen!";;


logPrint("1\n");
 print "2\n";
logPrint2("3\n");
 print GLOG ("4\n");

open(STDOUT, ">&STDOUTFAKE");
open(STDERR, ">&STDERRFAKE");

close STDOUTFAKE;
close STDERRFAKE;
close GLOG;

sub logPrint {
    print GLOG "-- ".strftime('%H:%M:%S',localtime(time()))." -- ".shift;
}
sub logPrint2 {
    print "-- ".strftime('%H:%M:%S',localtime(time()))." -- ".shift;
}