use Benchmark 'cmpthese';
use Data::Dumper;

sub run_bm($){
	my $str=shift;
	my $h;
	$str=~s/\A(.*)\$VAR1 =/$h=$1;''/se;
	print $h;
	my $v=eval($str);
	die $@ if $@;
	$v
}

my $opts='-5 \\\\foo\\bar\\baz.exe;

my $hash={
          blackadder => run_bm(`perl bm_blackadder.pl $opts`),
          theorbtwo  => run_bm(`perl bm_theorbtwo.pl $opts`),
         };
cmpthese($hash);
__END__