1 #!/usr/bin/perl -wT 
  2  
  3 use strict; 
  4 use CGI qw(:standard); 
  5  
  6 my $q = new CGI; 
  7  
  8 my $filename = $q->param('/home/yifangt/hello.cgi'); 
  9 my $contenttype = $q->uploadInfo($filename)->{'Content-Type'}; 
 10  
 11 print header; 
 12 print start_html; 
 13 if ($contenttype !~ /^text\/html$/) { 
 14         print "Only HTML is allowed<P>"; 
 15         print end_html; 
 16         exit; 
 17 } else  { 
 18  
 19 print "Type is $contenttype<P>"; 
 20 } 
 21  
 22 print end_html; 
 23

Use of uninitialized value $filename in scalar dereference at (eval 3) line 3.
Use of uninitialized value in hash element at (eval 3) line 3.
Can't use an undefined value as a HASH reference at /usr/lib/cgi-bin/Listing4-2.cgi line 9.
[Wed Dec 28 11:37:10 2011] [error] [client 127.0.0.1] Premature end of script headers: Listing4-2.cgi

9 my $contenttype = $q->uploadInfo($filename)->{'Content-Type'};

3 use strict;