В результате у меня вышло:
open (TEMPLATE,"$PathToTemplates/check_by_photo.htm") || RaiseError ("Can't open template file $PathToTemplates/check_by_photo.htm\n");
read (TEMPLATE,$original,32768);
close (TEMPLATE);
$sth = $dbh->prepare("select count(*) from photo");
$sth->execute or die;
@row = $sth->fetchrow_array;
$maxz=$row[0];
$sth = $dbh->prepare("select P_Girl, P_Number, P_X, P_Y, name from photo left join girls on photo.P_Girl = girls.ID");
$sth->execute or die;
$sth2 = $dbh->prepare("select ID, InfoValue from girl_addedinfo where IsApproved = 1 and GirlID = $id and InfoType = 'Photo'");
$sth2->execute or die;
$n=1;
$nmax= int($maxz/60-0.001)+1;
my $imgpatch;
my $zcur=0;
my $z=0;
while ((@row = $sth->fetchrow_array))
{
if ($zcur==0)
{
if ($n==1)
{
open (FILE,">$PathToWWW/users-by-photo.htm") || RaiseError ("Can't open file $PathToWWW/users-by-photo.htm\n");
}
else
{
close (FILE);
open (FILE,">$PathToWWW/users-by-photo/".$n.".htm") || RaiseError ("Can't open file $PathToWWW/users-by-photo/".$n.".htm\n");
}
$insertion='';
$resultation=$original;
}
$p_girl=$row[0];
$p_number=$row[1];
$girlName = $row[4];
$addedInfoID = $row2[0];
$infoValue = $row2[1];
local(@size) = split (/:/,$infoValue);
$picX = @size[0];
$picY = @size[1];
$insertion.= "<td><a title='$girlName' href='/girl-users/".$p_girl.".htm'><img class='imgsc' src='/photo/thumb/girl_".$p_girl."_".$p_number."_1.jpg' width='200' height='300' alt='$girlName`s photo'> <img src='/photo/added/girl_".$id."_$addedInfoID"."_1.jpg' width='$picX' height='$picY' alt='$name`s added girl photo' border='0'> </a></td>\n";
$insertion.= "\n";
if ($zcur==7 || $zcur==15 || $zcur==23 || $zcur== 31 )
{
$insertion.= "</tr><tr>";
$insertion.= "\n";
}
$z++;
$zcur++;
if ($z==$maxz) {$zcur=60;}
if ($zcur==60)
{
$resultation=~ s/__FOTOS__/$insertion/sg;
$insertion="Displaying <b>".($z-$zcur+1)."</b> to <b>".$z."</b> (of <b>".$maxz."</b> new additions)";
$resultation=~ s/__TOTALCOUNT__/$insertion/sg;
$insertion="";
