I am trying to learn how to use CGI.pm. The below code is bits and
pieces from the CGI.pm - a Perl CGI Library documentation. I cannot
get the uploaded file to print. I just don't know what it is I'm
missing (I don't have any syntax errors apparently - this just
returns a blank page). Thanks for your help in advance.
#!/usr/local/bin/perl -w
1. use strict;
2. use CGI;
3. print "Content-type: text/html\n\n";
4. my $q=new CGI;
5. my $params=$q -> Vars;
6. my @foo=split("\0", $params -> {'foo'});
7. my %params=$q -> Vars;
8. my $filename=$q -> upload('ad');
9. while (<$filename>)
10. {print;
11. }
*** Teresa Raymond
*** http://www.mariposanet.com
*** [EMAIL PROTECTED]
