use warnings;
use strict;
use diagnostics;

use Benchmark qw(cmpthese);

callCmp ();

sub callCmp {
  cmpthese (1, {bogus => cmpthese, bogus => cmpthese});
}

##</code><code>##

Uncaught exception from user code:
	usage: cmpthese($count, { Name1 => 'code1', ... });        or
       cmpthese($count, { Name1 => sub { code1 }, ... });  or
       cmpthese($result, $style);
 at C:/Perl/lib/Benchmark.pm line 876
	Benchmark::cmpthese() called at noname1.pl line 10
	main::callCmp() called at noname1.pl line 7