#!/usr/bin/env perl
use 5.012;
use warnings;

use POSIX;
use IO::Handle;

my $globalLog = 'foo.log';

open(GLOG, '>>', $globalLog) || die "Kann $globalLog nicht öffnen: $!";
GLOG->autoflush(1);

open(STDOUT, '>&GLOG');
open(STDERR, '>&GLOG');

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

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