############  First Attempt

$data = $Data->param('POSTDATA');

open(FILE,">/tmp/$Filename");
print FILE $data;
close(FILE);

##########  Alternative attempt

$handle = $Data->upload($Mtfilename);
if (defined $handle) {
        $io_handle = $handle->handle;
        open(FILE,">/tmp/$Filename");
        while ($bytesread = $io_handle->read($buffer,1024)) {
                print FILE $buffer;
        }
        close(FILE);
}