use DateTime;

my $dt=DateTime->now();
print $dt->hms();