Вообщем столкнулся с такой проблемой когда надо вывести каталог из таблицы. Пытаюсь применять рекурсия но не фига не работает.

//Готовим запрос
my $sth=$dbh->prepare(qq{select id,name from katalog where parent_id=?});

//Функция вывода каталога
sub get_tree {
my $id=shift || 0;
$sth->execute($id);
while (@row=$sth->fetchrow_array) {
print $row[1]."\n";
&get_tree($row[0]);
}
}
//Вызов функции
get_tree();

Почему -то не работает???

Что интересно блин,под MySQL прекрасно работает,а под FireBird выёживается и выводит тольку первую ветку

Почему так?