perlで日付を取得する方法

($mday,$mon,$year) = (localtime(time))[3..5];
$year += 1900;
$mon += 1;