timethese (10000, {
              cpp => sub { eval "$foo"; },
              prl => sub { eval "$bar"; }});
=pod
$ perl -P bmp.pl
Benchmark: timing 10000 iterations of cpp, prl...
       cpp:  1 wallclock secs ( 0.50 usr +  0.02 sys =  0.52 CPU) @ 19230.77/s (n=10000)
       prl:  2 wallclock secs ( 2.40 usr +  0.03 sys =  2.43 CPU) @ 4115.23/s (n=10000)
=cut