open(OFH, ">$abfile") or die ...;
>   binmode(OFH);
    while ( read($fh, $data, 1024) ) {