为什么我上传文件后，变成0字节了呢？

CODE:

#!/usr/bin/perl -w

print "content-type: text/html\n\n";
        use strict;
        use CGI qw(:standard);

print header;
print start_html(-title=>'test upload file');
print start_form(-method=>'POST',
                 -enctype=>"multipart/form-data",
                 -action=>'/awm/dd.pl');
print <<EOF;
        <input type="file" name="uploadfile">
EOF

##print start_multipart_form.filefield(-name=>'uploadfile');
print br.submit('submit','Send').end_form;
print end_html;

my $upload_dir = "/usr/local/aaa/uploadfile" ;
if(param()){
        my $q = new CGI;
        my $filename = $q->param('uploadfile');
        $filename =~ s/.*[\/\\](.*)/$1/;
        print $filename."<br>";
        open UPLOAD, ">$upload_dir/$filename";
        binmod UPLOAD;
        close UPLOAD;
}

QUOTE:

之前要加上my $file = $q->param('uploadfile');

CODE:

However, there are problems with the dual nature of the upload fields. If you use strict, then Perl will complain when you try to use a string as a filehandle. You can get around this by placing the file reading code in a block containing the no strict pragma. More seriously, it is possible for the remote user to type garbage into the upload field, in which case what you get from param() is not a filehandle at all, but a string.

CODE:

To be safe, use the upload() function (new in version 2.47). When called with the name of an upload field, upload() returns a filehandle, or undef if the parameter is not a valid filehandle.

     $fh = upload('uploaded_file');
     while (<$fh>) {
           print;
     }

CODE:

#!c:/perl/bin/perl.exe
use CGI qw(:standard);
print header;
$fh = upload('uploaded_file');
open HT,'>fukkk.txt' or die 'open file error';
     while (<$fh>) {
           print HT;
     }