for($i = 1; $i <= 11; $i++) {
  $pcaption = $fr{"caption$i"};
  $paction = $fr{"action$i"};
  $photo = $fr{"photo$i"};

  if($paction eq 'delete') { unlink("../../listing/$ident-$fr{listingid}-$i.jpg"); }

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

  $sth = $dbh->prepare("insert into listing_photo values ( '$ident', $fr{listingid}, $i, '$pcaption' )");
  $sth->execute;
  $sth->finish;
}