000068:    my $data = qq(SELECT catname, path, root FROM categories WHERE root = "1" ORDER BY catname ASC);
000069:    my $sth = $dbh->prepare($data);
000070:    $sth->execute() or die $dbh->errstr;
000071:      
000072:    my ($catname, $path, $root);
000073:    my $sth->bind_columns(\$catname, \$path, \$root);
000074:
000075:    while($sth->fetch)
000076:    {
000077:       print qq~
000078:       <a href="manage.pl?process=categories&path=$path">$catname</a><br>
000079:       ~;
000080:    }