Select Code to Download

#!/usr/bin/env perl

...
        inline => sub { my ($volume, $message) = @_ } 
        }
);

bruce:0:~/tmp $ ./p.pl
            Rate inline  shift
inline 3300330/s     --   -29%
shift  4629630/s    40%     --