/local/perl-5.10/bin/perl5.10.0 -s p.pl -S=1e6 -N=13104 | wc -l