if($photo ne '') {
    $photodir = ">../../listing/$ident-$fr{listingid}-$i.jpg";
    $fh = $q->upload("photo$i");
    open(PFILE, $photodir);
    while(<$fh>) { print PFILE; }
    close(PFILE);
  }