现在！现在！现在！

Perl中的time() 函数返回以纪元秒形式表示的当前日期和时间。如果你打算把它转换为字符串，就可使用gmtime() 和localtime() 函数：

$now = localtime(time());
($sec, $min, $hour, $day, $mon, $year,
$wday, $yday, $isdst) = localtime(time());

如果调用 localtime() 或gmtime() 时不带参数，它将自己调用time()

$now = localtime();
($sec, $min, $hour, $day, $mon, $year,
$wday, $yday, $isdst) = localtime();