use Time::localtime;
my $tm = localtime;
$tm->mday, $tm->mon + 1, $tm->year + 1900, ...