where is the error?

[Marius Keraitis]

Hi i have this code, server (apache on Unix) don't shows any error, but my
scripts doesn't work correctly:

$sth=$dbh->prepare(q
{
BEGIN OPEN :cursor FOR
  SELECT column_name FROM all_tab_columns
  WHERE owner = 'KLASIFIKATORIAI' AND TABLE_NAME= :t_name ORDER BY COLUMN_ID;
END;
});
$sth->bind_param(":t_name", $table);
$sth->bind_param_inout(":cursor", \$sth2, 0, {ora_type => ORA_RSET});
$sth->execute();

while ( @tuple = $sth2->fetchrow_array )
{
print<<TABLE;
   <td><p align="center"><font face="Arial"
size="2"><b>$tuple[0]</b></font></p></td>
TABLE
$counter++;
}

Thank for Your help.

MarioDaPL.