I'm not sure but try taking out "$q ->" in front of your print statements. i.e.: print header();
my $value=$q->param('upload_file');
Also, in the above you set the value of my $value but then do not use it elsewhere in your script. In the below you end up using the value of my $value.
if ($q->param('upload_file')) { my $fh=$q->upload('upload_file'); while (<$fh>) { print $_; } } print $q->end_html();
-Teresa
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>