3.1 今日の日付を取得する

# 方法1
($day, $month, $year) = (localtime)[3,4,5];

# 方法2
use Time::localtime;
$tm = localtime;
($day, $month, $year) = ($tm->mday, $tm->mon, $tm->year);