##






##

##

  my $cgi = new CGI;
  my $file = new $cgi->param('file');
  open(FUP,">$vdir$fn");
  while (<$file>) {
    print FUP $_;
  }
  close FUP;
  print $cgi->header();

##

##

$CGI::POST_MAX = 1024 * 1024;