cgi/lib/admiin/com.plの
325行の
	while(<COM>){
		($cno,$no,$name,$title,$email,$url,$date,$message,$img)=split(/,/,$_);
		$flag=0;
		foreach(@{${$aryref}{$m}}){
			($no_d,$cnum)=split(/_/,$_);
			if(($cno == $cnum) && ($no == $no_d)){
				$flag=1;
				if($img){
					push @del,$img;
				}
				last;
			}
		}
		if(!$flag){
			$com[$idx++]=$_;
			push @{$COM{$no}},$_;
			$CNUM{$no}++;
			$allcnum++;
		}
	}

の部分を

	while($ln=<COM>){
		($cno,$no,$name,$title,$email,$url,$date,$message,$img)=split(/,/,$ln);
		$flag=0;
		foreach $v(@{${$aryref}{$m}}){
			($no_d,$cnum)=split(/_/,$v);
			if(($cno == $cnum) && ($no == $no_d)){
				$flag=1;
				if($img){
					push @del,$img;
				}
				last;
			}
		}
		if(!$flag){
			$com[$idx++]=$ln;
			push @{$COM{$no}},$ln;
			$CNUM{$no}++;
			$allcnum++;
		}
	}

このように変更してください。