Select Code to Download

#! perl -slw
use strict;
...
}

printf STDERR "Took %.3f\n", time() - $start;

c:\test>906020 906020.10e3 > 906020.filtered
Took 48.854
...

c:\test>wc -l 906020.filtered
   5000 906020.filtered