use Time::HiRes qw(gettimeofday);
my ($seconds, $microseconds) = &gettimeofday;
print "Seconds: $seconds\nMicroseconds: $microseconds\n";

# do some stuff here

($seconds, $microseconds) = &gettimeofday;
print "Seconds: $seconds\nMicroseconds: $microseconds\n";