Select Code to Download

#!/usr/bin/perl --
use Benchmark qw/ cmpthese /;
print "$]\n";
...
);
print "\n\n";
__END__

5.014001
                 Rate circumcised       uncut
...
circumcised 554597/s          --        -26%
uncut       749156/s         35%          --