Help for this page
... $sth->execute($objid); ... $sth->finish(); foreach $row (@rows) { ...
Sub GetChildren{ my ($objid) = @_; ... $sth->finish(); }