(my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my $yday, my $isdst ) = localtime(time);
my $adjustedYear = $year + 1900;
my $adjustedMon  = $mon + 1;
my $timestamp = sprintf( "%4.4d%2.2d%2.2d%2.2d%2.2d_%d",
             $adjustedYear, $adjustedMon, $mday, $hour, $min, $$ );