I'm not sure why your code isn't working. It's a bit hard to debug,
because we're just seeing bits and pieces. Anyway, here's a simple example
that does work:
#!/usr/local/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
print $cgi->header();
print <<"EndOfHTML";
<html>
<head><title>File Upload Example</title></head>
<body>
EndOfHTML
if (my $filename = $cgi->param('uploaded_file')) {
my $size = -s $filename;
my $buffer;
while (read($filename, $buffer, 1024)) {
# do something with $buffer
}
print "<p>Uploaded file ", $cgi->escapeHTML($filename),
" is $size bytes.</p>\n";
}
print $cgi->start_multipart_form(), "\n",
$cgi->filefield(-name => 'uploaded_file', -size => 50), "<br>\n",
$cgi->submit(-name => 'submit', -value => 'Go!'), "\n",
$cgi->end_form(), "\n";
print <<"EndOfHTML";
</body>
</html>
EndOfHTML
__END__
HTH,
Ronald
_______________________________________________
Boston-pm mailing list
[EMAIL PROTECTED]
http://mail.pm.org/mailman/listinfo/boston-pm
