Hi Sean,
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>




Reply via email to