my @time = localtime;
my $time = sprintf "%04d" . "%02d" x 5, 
                   $time[5] + 1900,   # year
                   $time[4] + 1,      # month
                   @time[3, 2, 1, 0]; # day, hour, minute, second
print $time;