Upload funzt nicht - was könnte an CGI.pm falsch sein ?

[Torwächter]

Hallo,

vielen Dank, die Links haben mir sehr geholfen.
Nun bin ich sicher, dass CGI.pm richtig funzt.

Mein Script aber immernoch nicht:

#!/perl/bin/perl
use CGI;
$query = new CGI;
#------
$action = "testenv.pl";
$encoding = "multipart/form-data";
#------
print "Content-type: text/html\n\n";
#------
print $query->startform(-method=>$method,
                        -action=>$action,
                        -encodingtype=>$encoding);
print $query->filefield(-name=>'uploaded_file',
                        -default=>'startwert',
                        -size=>50,
                        -maxlength=>80);
print "<input type='Submit'>";
print $query->endform;
#----
$filename = $query->param('uploaded_file');
open (OUTFILE,">D:/USERMANGA/testtest.log");
while ($bytesread=read($filename,$buffer,1024))
{
   print OUTFILE $buffer;
}
close (OUTFILE);