Almost-minimal filesystem based blog.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 

25 lines
383 B

#!/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";