#!/usr/bin/perl
print "Content-type: text/html\n\n";
srand();
$fil="ch";
open(OUT, '>>'.$fil);
for($i=1;$i<10001;$i++){
 $j=int(rand(20000))+440000;
 $k=substr(pack('l>',$j),1);
 print OUT $k;
}
close(OUT);
print "DONE !";