print STDERR "File name: " . $cgi->param('Filename') . "\n";
print STDERR "Filedate: ";
print STDERR "FOO 1" . $cgi->param('Filedata') . "\n";;
print STDERR "FOO 1" . $main::cgi->param('Filedata') . "\n";