Perl и время

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$year=$year+1900;
$mon=$mon+1;
print "$year-$mon-$mday $hour:$min:$sec";
print "\n";