use Time::HiRes 'time';

my $begin = time();
# do stuff, lets waste some time
$cnt++ for 1..1000000;
my $end = time();
my $time = ($end - $begin) * 1000;
print "Took $time milliseconds\n" ;