Select Code to Download

Can't call method "bind_columns" on an undefined value at manage.pl li
+ne 73.

000068:    my $data = qq(SELECT catname, path, root FROM categories WH
+ERE root = "1" ORDER BY catname ASC);
000069:    my $sth = $dbh->prepare($data);
...
000078:       <a href="manage.pl?process=categories&path=$path">$catna
+me</a><br>
000079:       ~;
000080:    }