#!/usr/bin/perl

use Time::HiRes;
use Time::HiRes qw ( gettimeofday tv_interval );
my $iterations = 10000;

$t0 = [gettimeofday];
foreach (1..$iterations) {
  use my_module;
}
$elapsed = tv_interval( $t0, [gettimeofday] );

print "Elapsed Time: $elapsed\n";
print "Iterations: $iterations\n";
print "Mean Time: " . ( $elapsed / $iterations ) . "\n";