sub GetMonitorFilename{
   my $hostname = shift || "localhost";
   my $job = shift || "UNDEF";

   my $name_of_this_machine = (gethostbyname ($hostname))[0];
   $name_of_this_machine =~ tr/./$/; # das ist Zeile 50
   return POSIX::strftime("%Y-%m-%d", localtime)."_".$name_of_this_machine."_".uc($job).".log";
}#end-GetMonitorFilename