>perl script.pl 1700

             Rate mrborisguy    ikegami
mrborisguy 31.0/s         --       -74%
ikegami     120/s       286%         --    # Without XS.

             Rate mrborisguy    ikegami
mrborisguy 31.7/s         --       -96%
ikegami     722/s      2179%         --    # With XS.