file upload problem

[altaratz]

I'm using the following code to have users upload files to a directory on my site - every time I test though the process adds about 20-30 bits of data to the file, causing havoc with it - like turning this:

http://www.highwaym.com/walter.jpg

(size: 7951 bits)

into this:

http://www.highwaym.com/extranet/uploads/walter.jpg

(size: 7981 bits)

Any ideas? - Here's the code:

#!/usr/bin/perl

use CGI;
$upload_dir = "/uploads";

$query = new CGI;

$filename = $query->param('upload_file');
$filename =~ s/.*[\/\\](.*)/$1/;
$upload_filehandle = $query->upload("upload_file");

open UPLOADFILE, ">$upload_dir/$filename";

while ( <$upload_filehandle> )
{
print UPLOADFILE;
}

close UPLOADFILE;

print $query->header ( );

 

[cgilover]

Looks like you need to use binmode.

 

[altaratz]

I'm sorry - I don't know what that means

 

[altaratz]

Sorry Again - I figured it out - thanks so much