## open of the file on server
open(FILE,">$upload_dir/$file_name") || &Error("Error opening file $file_name for writing, error $!", 1);
binmode FILE;

$time=time();
while (1)
{
### fails here return code is undef.
$bytes_count = read($file_query,$buff,2096);
if ($bytes_count == 0)
{
last;
}