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