$udt = $que->upload($dat);
  open PAGE, ">$pgp$pgn";
#  while (<$udt>) { print PAGE $_; }
  while (read($udt, $buf, 16384)) { print PAGE $buf; }
  close PAGE;