Select Code to Download

>perl a.pl
          Rate test2 test1
...
          Rate test2 test1
test2 224170/s    --   -8%
test1 243265/s    9%    --

$ perl a.pl
          Rate test2 test1
...
          Rate test2 test1
test2 195321/s    --   -4%
test1 203538/s    4%    --

use strict;
use warnings;
...
   test1 => \&test1,
   test2 => \&test2,
});