#!/usr/bin/perl -w

use Benchmark qw/cmpthese/;
use Getopt::Std;

my $DEBUG = 1;

getopts('hn:i:');

die <<EOH unless @ARGV;
$0 [-n interations] [-i <init code>] 'name => {code}' ...
EOH

eval $opt_i if $opt_i;
print "$opt_i\n" if $DEBUG;

$opt_n ||= 1000;

$code = "cmpthese($opt_n, {\n";
foreach (@ARGV) {
	($n, $c) = split /=>/, $_, 2;
	$code .= qq/$n => '$c',\n/;
}

$code .= "})\n";

print $code if $DEBUG;
eval $code;

print "$@\n" if $@;