my ($sec, $min, $hour, $day, $mon, $year) = (localtime)[0..5];
my $time = sprintf "%04d" . "%02d" x 5,
                   $year + 1900,
                   $mon + 1,
                   $day, $hour, $min, $sec;
print $time;