binmode FILE; print FILE pack("N",$i);