sub getTimestamp {
  my $TS;
$TS = `date +%Y-%m-%d-%H.%M.%S`;# yyyy-mm-dd-hh.mm.ss
$TS = &trim($TS);
$TS.= ".000000";# milliseconds = 0
return $TS;
}
Die Millisekunden liefert Unix leider nicht.

Diese Funktion wäre aber nicht auf andere Plattformen portierbar, deswegen wollte ich schon mal auf die POSIX-konforme Version umstellen:
use Time::localtime;
$tm = localtime;
Jetzt ist eine Pointer Struktur mit 9 Elementen gesetzt:
$tm->$sec
$tm->$min
$tm->$hours
$tm->$mday1-31
$tm->$month1-12
$tm->$year1-138 + 1900
$tm->$wday0-6, 0=Sunday
$tm->$yday1-366
$tm->$sec0 or 1, true=Sommerzeit
oder:
($D,$MONAT,$J) = (localtime) [3,4,5];Element 0 = $SEC