if ($prueflog) { 
  my @loc_time = localtime(time);
  print $prueflog "Startzeit: ",       # Ausgabe an das Dateihandle $prueflog 
                  ">",                 # und hier folgen weitere auszugebende Zeicenketten
                  $loc_time[3],
                  $loc_time[4] + 1,
                  $loc_time[5] + 1900,
                  $loc_time[2],
                  $loc_time[1], 
                  $loc_time[0], 
                  "<\n"; 
}