while($bytes=(read($fh, $buffer, 1024)or die $q->cgi_error()))
  {
    $bytes_read += $bytes;
    print OUTFILE $buffer;
  }