if((defined $fdat{file} && $fdat{file}) && $fdat{upload}) {
          $filename = "/tmp/sample.txt";
          open (FILE, "> $filename") || die("open failed: $!");
          while (read($fdat{file}, $buffer, 32768)) {
              print FILE $buffer || die("print test: $!");
          }
          close FILE || die("close test: $!");
}