在perl中获取当前的日期和时间

my ($sec,$min,$hour,$day,$mon,$year,$weekday,$yeardate,$savinglightday)    =   (localtime(time));

$sec    =    ($sec    <    10)?    "0$sec":$sec;
$min    =    ($min    <    10)?    "0$min":$min;
$hour    =    ($hour    <    10)?    "0$hour":$hour;
$day    =    ($day    <    10)?    "0$day":$day;
$mon    =    ($mon    <    9)?    "0 ".($mon+1):($mon+1);
$year    +=    1900;

然后组合，比如：
$now    =    "$year-$mon-$day    $hour:$min:$sec";