if ($fname) {
        open (OUTPUT, ">$fname.tmp") or die "Can't open $fname.tmp $!\n";
        open (DATA, "<$fname") or die "Can't open $fname $!\n";
        binmode DATA;

        read(DATA, $data, BLOCKHDR);
        $blockhdr = unpack "H*", $data;

        read(DATA, $data, BLOCKDATA);
        $blockdt  = unpack "H*", $data;

        my $t_cdr = hextoint(reverse_str(substr($blockdt,4)));
        my $blocklen = $t_cdr * 286;

        read(DATA, $data, $blocklen);
        my $record = unpack "H*", $data;

        close(DATA);
        close(OUTPUT);
} else {