Select Code to Download

#!/usr/bin/perl -w
use strict;
...
             }
       );

=pod
...
       cpp: 88 wallclock secs ( 0.08 usr  0.54 sys + 52.56 cusr 29.98 
+csys = 83.16 CPU) @ 1612.90/s (n=1000)
       prl: 49 wallclock secs ( 0.09 usr  0.56 sys + 33.78 cusr 12.19 
+csys = 46.62 CPU) @ 1538.46/s (n=1000)
=cut

timethese (10000, {
              cpp => sub { eval "$foo"; },
...
       cpp:  1 wallclock secs ( 0.50 usr +  0.02 sys =  0.52 CPU) @ 19
+230.77/s (n=10000)
       prl:  2 wallclock secs ( 2.40 usr +  0.03 sys =  2.43 CPU) @ 41
+15.23/s (n=10000)
=cut