Uploading Binary Data using Perl

Hi,
I'm using the code below to upload images to a server.

open (OUTFILE,">>$outfile")|| warn "Error $!: cannot open $outfile";;
binmode(OUTFILE);
        while ($bytesread=read($infile,$buffer,1024)) {
        print OUTFILE $buffer;
        $tmp = $bytesread;
        $size = $size + $tmp;
       print "$size <BR>\n";
        }
        close(OUTFILE);

I wrote this well over 10 years ago, but it's still works fine. That is, until I try to upload certain music (MP3) files. The filesize is zero when it gets created on the server.

Here's what works
1. Images I create and save.
2. Audio Files I create and save.
3. Video files I create and save.

Here's what doesn't work
1. Audio files that I pulled of of a CD or downloaded online.

Filesize doesn't seem to be an issues. I uploaded a 15mb image file but can't upload an 8mb mp3 file.


I'm not trying to do anything illegal here and if it doesn't work, it doesn't work .
But it seems strange I can't upload commercial audio files this way. Could it be some copy protection in the MP3 files that stops it from being copied? But I am able to make multiple copies of the file using just my desktop. Odd.

Any ideas?
Thanks,
Nacht