# fetch commandline argument
my $argument = shift @ARGV or die "Kommandozeilenargument fehlt";
use File::Basename;
# get filename of program
my $scriptname = fileparse($0);
# make new log filename
my $logfile = "/tmp/rnetposts/${argument}-${scriptname}.log";
my $err_logfile = "/tmp/rnetposts/${argument}-${scriptname}_error.log";
my $out_logfile = "/tmp/rnetposts/${argument}-${scriptname}_out.log";

open(STDOUT, ">", $out_logfile) or die "Konnte STDOUT nicht in Datei $out_logfile umleiten";
open(STDERR, ">", $err_logfile) or die "Konnte STDERR nicht in Datei $err_logfile umleiten";
open(my $LOGDATEI, ">", $logfile) or die "Konnte Datei $logfile nicht oeffnen";
chmod(0666, $LOGDATEI);
select($LOGFILE);
print "Programm laeuft ab und gibt Informationen aus";
close($LOGDATEI) or die "Konnte Datei $logfile nicht speichern";