$cgi = bless( {
  ".charset" => "ISO-8859-1",
  ".fieldnames" => {},
  ".parameters" => [
    "f"
  ],
  ".tmpfiles" => {
    "*File::Temp::\$fhc:\\WINNT\\NOTEPAD.EXE" => {
      hndl => bless( \*{'File::Temp::$fh'}, 'CGI::File::Temp' ),
      info => {
        "Content-Disposition" => "form-data; name=\"f\"; filename=\"c:\\WINNT\\NOTEPAD.EXE\"",
        "Content-Type" => "application/octet-stream"
      },
      name => "/tmp/n93zfrd2Bf"
    }
  },
  escape => 1,
  param => {
    f => [
      $cgi->{".tmpfiles"}{"*File::Temp::\$fhc:\\WINNT\\NOTEPAD.EXE"}{hndl}
    ]
  },
  use_tempfile => 1
}, 'CGI' );
%ENV = (
  CONTENT_LENGTH => 51165,
  CONTENT_TYPE => "multipart/form-data; boundary=---------------------------7e122d10086",
  CONTEXT_DOCUMENT_ROOT => "/data/apache/cgi-bin/",
  CONTEXT_PREFIX => "/cgi-bin/",
  DOCUMENT_ROOT => "/data/apache/htdocs",
  GATEWAY_INTERFACE => "CGI/1.1",
  HTTP_ACCEPT => "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*",
  HTTP_ACCEPT_ENCODING => "gzip, deflate",
  HTTP_ACCEPT_LANGUAGE => "en-us",
  HTTP_CACHE_CONTROL => "no-cache",
  HTTP_CONNECTION => "Keep-Alive",
  HTTP_HOST => "enterprise",
  HTTP_REFERER => "http://localhost/cgi-bin/file-upload-test",
  HTTP_USER_AGENT => "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)",
  LD_LIBRARY_PATH => "/usr/lib64/httpd",
  PATH => "/sbin:/usr/sbin:/bin:/usr/bin",
  QUERY_STRING => "",
  REMOTE_ADDR => "192.168.2.178",
  REMOTE_PORT => 1047,
  REQUEST_METHOD => "POST",
  REQUEST_SCHEME => "http",
  REQUEST_URI => "/cgi-bin/file-upload-test",
  SCRIPT_FILENAME => "/data/apache/cgi-bin/file-upload-test",
  SCRIPT_NAME => "/cgi-bin/file-upload-test",
  SERVER_ADDR => "192.168.2.10",
  SERVER_ADMIN => "me\@localhost",
  SERVER_NAME => "localhost",
  SERVER_PORT => 80,
  SERVER_PROTOCOL => "HTTP/1.1",
  SERVER_SIGNATURE => "",
  SERVER_SOFTWARE => "Apache"
);