Select Code to Download

perl -e"BEGIN{binmode STDOUT}" 
-ne"print pack'Q',tell STDIN" syssort >syssort.idx

#! perl -slw
use strict;
...

c:\test>syssort-idx -N=1e3
1e3 random records read in 0.226 seconds (0.000226/s)