perl取得系统日期

($sec,$min,$hour,$mday,$mon,$year)=localtime(time);

$mon++;
$mon="0$mon"
if ($mon<10);
$mday="0$mday"

if ($mday<10);
$year+=1900;

print "$year-$mon-$mday";