use Time::localtime;

my $t;

$t = localtime->new;

print "$t\n";