## cgi.pm parameters
use CGI;
#use CGI::Carp qw(fatalsToBrowser carpout);
$CGI::DISABLE_UPLOADS = 0;
$CGI::POST_MAX = 24000;
my $query = new CGI;
$query = CGI->new();

my %formdata;
my @formfields = $query->param;

for my $field(@formfields) {
  $formdata{$field} = $query->param($field);
}

print <<FORM;
<center>
<form method="post" action="https://www.$domain/$self" enctype="multipart/form-data">
<input type="hidden" name="mod" value="on">
<input type="file" name="upload"  size="40"><p>
<input type="image" src="$images/submitbutton.gif">
</form>
</center>
FORM

## end upload documents ##

while(<$formdata{upload}>) {
  print;
}