$fh = $query->upload('FILE1');
  binmode $fh;
  while ($bytesread=read($fh, $buffer, 1024)) {
    print OUTFILE $buffer;
  }