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


##</code><code>##

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;