Get Today ด้วย Perl

มีคำถามมาว่า พี่ครับ เวลาจะดึงวันที่วันนี้ด้วย Perl ใช้ localtime รึเปล่า
คำตอบใช่ ไม่ต้องเสียเวลาเขียน เอา coding นี้ไป

## Getting today

@Today=localtime(time);
($tday,$mon,$year) = @Today[3,4,5];
$year += 1900;
++$mon;
$tday = zero($tday);
$mon = zero($mon);
$year = zero($year);

print "$year $mon $tday\n";

##sub routine for adding zero
sub zero {
if (length($_[0]) == 1) {
return '0'.$_[0];
}
else {
return $_[0];
}
}