Use Time::HiRes.

use strict;
use warnings;
use Time::HiRes qw(gettimeofday);

my ($seconds, $microseconds) = gettimeofday;
[download]