my $file = $req->param($inputfieldname);
my $fh = $req->upload($inputfieldname);
if (open(OUTFILE, ">$c{dir}{tmp}/$file")) {
  binmode(OUTFILE); # Windows only
  while (<$fh>) {
   print OUTFILE;
  }
  close (OUTFILE);
}