C:\test>perl -e"BEGIN{$/= \1024}" -nle" rand() < 0.1 and print length()" 986831-01.dat 1024 1024 1024 1024 1024 C:\test>perl -e"BEGIN{$/= \1024}" -nle" rand() < 0.1 and print length()" 986831-01.dat 1024 1024 1024 C:\test>perl -e"BEGIN{$/= \1024}" -nle" rand() < 0.1 and print length()" 986831-01.dat 1024 1024 1024 1024