Select Code to Download

C:\test>perl -le"print join chr(9), map int( rand 1000 ), 1 .. 100 for
+ 1 .. 1e6" > junk.dat
C:\test>dir junk.dat
02/01/2012  09:05       390,001,724 junk.dat

C:\test>perl -E"binmode STDOUT; print pack 'S', map int( rand 1000 ), 
+1 .. 100 for 1 .. 1e6" >junk.dat
C:\test>dir junk.dat
02/01/2012  09:06         2,000,000 junk.dat

#! perl -slw
use strict;
...

C:\test>dir junk.xml
02/01/2012  09:45     2,206,994,460 junk.xml

C:\test>dir junk.dat
02/01/2012  09:14       389,997,094 junk.dat
...

C:\test>dir junk.dat.bz2
02/01/2012  09:14       131,705,924 junk.dat.bz2

C:\test>dir junk.xml
02/01/2012  09:45     2,206,994,460 junk.xml
...

C:\test>dir junk.xml.bz2
02/01/2012  09:45       216,299,791 junk.xml.bz2