Select Code to Download

use strict;
use warnings;
...
our $date = '20091202';

my $results = cmpthese(-3, \%tests);

This is Perl 5.010000
           Rate  range repeat  isook unpack
...
repeat 445365/s     7%     --    -1%   -41%
isook  449974/s     8%     1%     --   -40%
unpack 754290/s    81%    69%    68%     --