my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon++; $year += 1900; $yday++;
my $zeitstempel = sprintf("%04d-%02d-%02d_%02d:%02d:%02d_%d", $year, $mon, $mday, $hour, $min, $sec, $isdst);
print $zeitstempel;