open(OUT,'>'.$fil) or die $!;
binmode OUT;
for $i(1 .. 10000){
 $lat=int(rand(20000))+440000;
 $lon=int(rand(10000))+20000;
 $typ=chr(31);
 $cod=pack('l>l>C',$lat,$lon,$typ);
 print OUT $cod;
}
close(OUT);