or download this
use Benchmark 'timethese';
use Inline C => <<'EoF';
...
c_mod: 8 wallclock secs ( 7.44 usr + -0.01 sys = 7.43 CPU) @ 13
+45895.02/s (n=10000000)
perl_and: 17 wallclock secs (16.63 usr + -0.01 sys = 16.62 CPU) @ 60
+1684.72/s (n=10000000)
perl_mod: 16 wallclock secs (16.65 usr + 0.01 sys = 16.66 CPU) @ 60
+0240.10/s (n=10000000)