Select Code to Download

#! perl -slw
use strict;
...
  10000000      From 10000000 received there were: 7963211 new; 836492
+9 known; 0 deletions; 24187 insertions; 0 transformations.
Numbers processed at a rate of 4218/second