#!/usr/bin/perl
##############################################################################
print "Cache-Control: no-cache, must-revalidate\n";
print "Pragma: no-cache\n";
print "Content-type: text/html\n\n";

use CGI;
$fdata = CGI->new();
$Test_Field = $fdata->param('UploadedFile');
print"$Test_Field";
print "\$fdata->Dump():\n";
print $fdata->Dump();