view release on metacpan or  search on metacpan

benchmark.pl  view on Meta::CPAN

#!/usr/bin/perl

use Benchmark;

$script = $ARGV[0];

# declare array
my @data;

# start timer
$start = new Benchmark;

for ($x = 0; $x <= 100; $x++) {
  $output = `perl ./$script`;
}

# end timer
$end = new Benchmark;

# calculate difference
$diff = timediff($end, $start);

# report
print "Content-type: text/plain\n\n";
print "Time taken was ", timestr($diff, 'all'), " seconds";