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