Where is the error? (Apache on Unix don't shows any..)

[Marius Keraitis]

...
<select name="selektas" style="font-size: 9pt; font-family: Arial" size="1">
<option selected>Pasirinkite stulpel�</option>
HTML
while ( @tuple = $sth->fetchrow_array )
{
$stulpas[$counter]=$tuple[0];
print<<OPTION;
  <option value="$tuple[0]">$tuple[0]</option>
OPTION
$counter++;
}
print<<HTML;
</select>
<input type="text" name="submitas" size="10" value="">
<input type="submit" name="ok1" value="Ie�koti" style="font-family: Arial;
font-size: 9pt;"><br><br>
[..
...]
if(param('submitas'))
{
$tuplas=param('selektas');
$textas=param('submitas');
#print $tuplas;
#print $textas;
$sth1 = $dbh->prepare(q
{
BEGIN OPEN :cursor FOR
SELECT * FROM DETKOD where :tuplas like '%'||:textas||'%';
END;
});
$sth1->bind_param(":textas", $textas);
$sth1->bind_param(":tuplas", $tuplas);
my $sth2;
$sth1->bind_param_inout(":cursor", \$sth2, 0, {ora_type => ORA_RSET});
$sth1->execute();
while ( @tuple = $sth2->fetchrow_array )
{
$i=0;
print<<TR;
<tr>
TR
while($i<$counter)
{
if(!$tuple[$i]){$tuple[$i] = "&nbsp";}
print<<TABLE;
<td><font face="Arial" size="2">$tuple[$i]</font></td>
TABLE
$i++;
}
print<<ENDTR;
</tr>
ENDTR
}
}
...

Any help would be nice..;)