Select Code to Download

#!/usr/bin/perl
use strict;
...
sub get_value2 {
    $_[0]->[0];
}

                Rate optimized    direct    normal
optimized 12549020/s        --       -1%       -1%
direct    12673267/s        1%        --        0%
normal    12673267/s        1%        0%        --