use CGI qw(:all escape);
  use CGI::Carp qw(fatalsToBrowser);
  $cgi = new CGI;
  read($cgi->param("userfile"), $buffer, $ENV{'CONTENT_LENGTH'});
  open (x,">$tempfile");
  print x $buffer;
  close (x);