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

Unless you do this, the bits you upload are going to get mangled by newline conversion.