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