Вопрос от новичка... (срочный)

А примерно как выглядит этот скрипт? сам сайт написал на perl (а я его не знаю...).
Можно немного подробнее что именно мне надо найти (для чайников) как говорится...
ПЛИИИЗЗЗЗЗ!!!!

if ($data{fid} == 0)
    {
        my $outp = $outf = $outpc = $outfc = "";

    if ($lvl<3) #if not last level
    {
######### categories listing
        my $query = "select * from $ptb where parent='$data{catalog}' order by title";
        my $sth = $dbh->prepare($query);
        $sth->execute;
        while (@R = $sth->fetchrow_array)
        {
        $outp  .= &format1("list",$prod_list,$R[0],$data{fid},$R[2]);
        }
        $sth->finish;
   
######### firm listing
#        my $query = "select * from $ftb as f join $fprtb as p join $ptb as c where f.id=p.firm_id and c.parent='$data{catalog}' and c.id=p.item_id order by firm_name";
        my $query = "select * from $ftb";
        my $sth = $dbh->prepare($query);
        $sth->execute;
        my $fname = "";
        while (@R = $sth->fetchrow_array)
        {
        if ($fname !~ /$R[1]/)
        {
            $fname .= "#".$R[1]."#";
            $outf .= &format1("listf",$firm_list,$data{catalog},$R[0],$R[1]);
        }   
        }
        $sth->finish;
    }

ЭТО ?
Файл называется admcatalog.pm  в папке admin

Hanut извените, я наверное уже "достал"...

Есть два вопроса:
1)почему то теперь после ввода логина и пасса чтобы войти в админку идет ошибка (как я понял 500)Internal Server Error
Как это можно исправить?
2)я нашел файл который отвечает за подкачку в "каталог" - catalog.pm
Боюсь копировать все дабы не показаться флудильшиком...

######### categories listing
        my $query = "select * from $ptb where parent='$data{catalog}' order by title";
        my $sth = $dbh->prepare($query);
        $sth->execute;
        while (@R = $sth->fetchrow_array)
        {
        $outp  .= &format1("list",$prod_list,$R[0],$data{fid},$R[2]);
        }
        $sth->finish;
   
######### firm listing

#        my $query = "select * from $ftb order by firm_name";
        my $query = "select * from $ftb as f join $fprtb as p join $ptb as c where f.id=p.firm_id and c.parent='$data{catalog}' and c.id=p.item_id order by firm_name";
        my $sth = $dbh->prepare($query);
        $sth->execute;
        #print $query,"\n\n";
        my $fname = "";
        while (@R = $sth->fetchrow_array)
        {
        if ($fname !~ /$R[1]/)
        {
            $fname .= "#".$R[1]."#";
            $outf .= &format1("listf",$firm_list,$data{catalog},$R[0],$R[1]);
        }   
        }
        $sth->finish;

###########################

if ($lvl<2) #if not last level
    {
        my $query = "select distinct c.id,c.title from $ptb as c join $fprtb as f where c.parent='$data{catalog}' and f.firm_id='$data{fid}' and c.id=f.item_id order by c.title";
        my $sth = $dbh->prepare($query);
        $sth->execute;
        while (@R = $sth->fetchrow_array)
        {
        $outp .= &format1("list",$prod_list,$R[0],$data{fid},$R[1]);
        }
        $sth->finish;
       
        my $query = "select firm_name from $ftb where id='$data{fid}'";
        my $sth = $dbh->prepare($query);
        $sth->execute;
        $R = $sth->fetchrow;
        $outf .= &format1("listf2",$firm_list,$data{catalog},$data{fid},$R);
        $sth->finish;       
        $outfc .= &format2("captf",$firm_capt,$data{fid});
        $outpc .= &format2("capt",$prod_capt,$data{catalog});
    }

Это 3 вырезки из кода - где встречается "format1("

И одна которая как я понимаю и отвечает за 2 лвл...
elsif ($lvl == 2) #last level
    {
        my $query = "select * from $ptb as c join $ftb as f join $fprtb as p where c.parent='$data{catalog}' and c.id=p.item_id and f.id=p.firm_id  order by f.firm_name, c.title";
        my $sth = $dbh->prepare($query);
        $sth->execute;
        my $cnt = 0;
        my $i=0;
        while (@R = $sth->fetchrow_array)
        {
        $tmp = &format3(0,$prod_list1,$R[0],$data{fid},$R[2],$R[5],$R[6],$R[7]);
        $cnt++;
        $i++;
        if ($cnt == 2) {$outp .= qq~<tr class="tcol1">$tmp1 $tmp</tr>~; $tmp1 = ""; $cnt = 0;}
        else {$tmp1 .= $tmp;}
        
        
#        $outp .= &format3($cnt,$prod_list1,$R[0],$data{fid},$R[2],$R[5],$R[6],$R[7]);
#        $cnt++;
#        if ($cnt == 2)
#        {
#            $outp = qq~ <tr> $outp </tr>;
#        }
#        $cnt = ($cnt == 2) ? 0 : $cnt;
        }
        $sth->finish;
        if ($i % 2) {$outp .= qq~<tr class="tcol1">$tmp<td>&nbsp\;</td><td>&nbsp\;</td></tr>~; }
    }

Что примерно тут не так????

Еще у меня остается 1 вопрос.
ЗА ЧТО ОТВЕЧАЮТ ДРУГИЕ ПОДМЕНЮ В MYADMIN???? не понимаююю......
Скрины ниже...

Hanut СПАСИБО ТЕБЕ! САМ ДОГАДАЛСЯ КАК СДЕЛАТЬ А ТЫ НАВЕЛ НА МЫСЛЬ
Остался только 1 неразрешимый вопрос - как сделать так чтобы заработала АДМИНКА...