my $stamp = sprintf '%02d/%02d/%02d.%02d.%02d.%02d', 
       $year, $mon, $mday, $hour, $min, $sec