use Time::HiRes qw(gettimeofday);
my $time = gettimeofday();
print "The time is $time.\n";