my $logfile = "syslog_error_$dt.log";
open ( LOG, ">" . $logfile ) or die "Could not open file '$logfile ' $!";
STDOUT->fdopen( \*LOG, 'w' ) or die $!;
STDERR->fdopen( \*LOG, 'w' ) or die $!;
print "Das ist eine normale  Nachricht\n";
warn "Das ist eine Warnung\n";
close(LOG);