use Time::localtime;

my $t;

$t = localtime(time);

print "$t\n";