用localtime，要注意的是month从0开始，year从1900计数：

[root@ ~]$ perl -e '
> sub getTime()
> {
>     my ($sec, $min, $hour,
        $wday, $yday, $isdst) = localtime(time);
>         $mday, $mon, $year,
    $mon = sprintf("%02d", $mon);
>         $wday, $yday, $isdst) = localtime(time);

>     $mon++;
>     $year += 1900;
>     $mon = sprintf("%02d", $mon);
>     $mday = sprintf("%02d", $mday);
>     return "$year-$mon-$mday $hour:$mon:$sec";
> }
>
> print getTime;'
2011-07-29 14:07:19