##
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: $!");
}