my $time = localtime;
open( LOG, ">> logfile.log") or die ("Cant open: $!");
flock(LOG, 2);
print LOG "[$time] Das ist ein Log!\n";
close( LOG) or die ("Cant close: $!");