Select Code to Download

        open (OUTPUT, ">$fname.tmp");
        open (DATA, "$fname");

        open OUTPUT, '>', "$fname.tmp" or die "Cannot open '$fname.tmp
+' $!";
        open INPUT,  '<', $fname or die "Cannot open '$fname' $!";

        $offset = 0;
        while (read(DATA, $data, BLOCKLEN, $offset)) {
...
...
                        $offset += BLOCKLEN;
                        $offset -= 286;

                my $total_record = hextoint(reverse_str(substr($blockd
+t,4)));