sub recursive_print_traversal {
        $parent = shift;                # the parent

        $addr = "select * from address_tbl where Subnet='$parent'";
        $subs = "select * from subnet_tbl where VLAN='$parent'";

        $addr_str = $dbh->prepare($addr);       # prepare address select
        $subs_str = $dbh->prepare($subs);       # prepare subnet select


        $addr_rst = $addr_str->execute();       # execute address select
        $subs_rst = $subs_str->execute();       # execute subnet select


##</code><code>##

        if ( $subs_rst == 0){
                print "<tr><td colspan=2 align=center>None.</td></tr>";
                print "</table></td></tr>";
        } else {
                while ( @row = $subs_rst->fetchrow_array ) {
>>                      recursive_print_traversal($row[0]);
                }
        }

##</code><code>##

Can't call method "fetchrow_array" without a package or object reference at /var/www/cgi-bin/report.cgi line 127.