my ($sec, $min, $hour, $monthday, $month, $year, $weekday, $yday, $isdst) = localtime ( time()); my $changedate = sprintf "%4d-%02d-%02d %02d:%02d:%02d", ($year + 1900),($month +1),$monthday,$hour,$min,$sec;