Select Code to Download

#!/usr/bin/perl -w
use strict;
...
     return $num_mismatch;
}

          Rate  Mine    RJ   BWK inman
Mine  176987/s    --  -65%  -78%  -80%
...

*Note: Mine has already included the modification
suggested by 'wazoox'.