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

my ($seconds, $microseconds) = gettimeofday;