#!/usr/bin/perl 
use CGI::Carp 'fatalsToBrowser'; 
use strict 
use CGI ':standard'; 

print "content-type:text/html\n\n"; 

my $file=param('uploadfile'); 

if ($file) { 
print "<p>you want to upload 
<b>$file</b>"; 
} else { 
print "No file chosen"; 
} 
print '</body></html>';