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

##</code><code>##

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

##</code><code>##

#! perl -slw
use strict;

print '<file rows="1000000" columns="100" >';
for my $row ( 1 .. 1e6 ) {
    print qq[<row id="$row">];
    print join '', map qq[<col id="$_">${ \int( rand 1000 )}</col>], 1 .. 100;
    print qq[</row>];
}
print '</file>';

__END__
C:\test>junkxml >junk.xml

C:\test>head junk.xml
<file rows="1000000" columns="100" >
<row id="1">
<col id="1">897</col><col id="2">421</col>...
"24">753</col><col id="25">707</col><col i...
 id="47">195</col><col id="48">889</col><c...
><col id="70">450</col><col id="71">779</c...
ol><col id="93">769</col><col id="94">90</...
</row>
...

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

##</code><code>##

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

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

##</code><code>##

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

C:\test>bzip2 -9 junk.xml

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