=pod
$ perl bmp.pl
Benchmark: timing 1000 iterations of cpp, prl...
       cpp: 88 wallclock secs ( 0.08 usr  0.54 sys + 52.56 cusr 29.98 csys = 83.16 CPU) @ 1612.90/s (n=1000)
       prl: 49 wallclock secs ( 0.09 usr  0.56 sys + 33.78 cusr 12.19 csys = 46.62 CPU) @ 1538.46/s (n=1000)
=cut