use Time::localtime;

my $t;

$t = localtime();

print "$t\n";