use CGI;
use CGI::Carp qw(fatalsToBrowser);

$q = new CGI;
$filename = $q->param('uploaded_file');
print "Content-type: text/html\n\n";
print "filename = $filename</br>";