File Upload Script problem

[vastur]

Hello,

I made the following Perl Script for uploading files through the web-server:

---------------------------------------------------
use CGI;

my $cgi = new CGI;

my $dir = $cgi->param('dir');
my $file_handle = $cgi->param('file');
my $file_name = $cgi->param('file');

$file_name =~ s/.*[\/\\](.*)/$1/; # strip the remote path and keep the filename

open ( UPLOADFILE, ">..\\$dir\\$file_name" ) or die $!;

while(<$file_handle>) {
print UPLOADFILE;
}
close UPLOADFILE;

print $cgi->header();

print "File Uploaded: $dir\\$file_name";
---------------------------------------------------

"dir" & "file" are input parameters from a web-form.

The script works apparently well (outputs "File Uploaded...", creates the file in the mentioned directory, etc), but the data on the uploaded file is corrupted. It cannot be opened by any application and the size is *slightly* different (a few bytes more).

I'm using the Abyss web-server. Can this be a problem in the configuration of the server?
Or might it be an error in the script?

Thanks lots,

Vasco

[hitam269]

After the line