Select Code to Download

open(OUT,'>'.$fil) or die $!;
binmode OUT;
for $i(1 .. 10000){
...
 print OUT $cod;
}
close(OUT);

$lah=pack('l>',$lah);
$lab=pack('l>',$lab);
$loh=pack('l>',$loh);
...
  print "OK";
 }
}