<form name="tc">
 <div align="right">
  <br />
  Выберите желаемый магазин:
  <select name="shop">';
    $sth = $dbh->prepare( q{ SELECT name FROM filial })
                 || die "Can't prepare statement: $DBI::errstr";
 $sth->execute; 
 while (@row = $sth->fetchrow_array)
             {
             print "<option>@row</option>";
             }
 
 print '</select>
 <input name="enterbutton" type="button" value="Показать">
[removed]
function show()
{   ';
#document.location="main.cgi?shop_name=';
$qqq='document.forms["tc"].shop.options[document.forms["tc"].shop.selectedIndex].value';
$query= "select filial_id from filial where filial.name=$qqq";
$Shop_name=param("shop_name");
$query_handle = $dbh->prepare($query);
$query_handle->execute();
@row= $sth->fetchrow;
$r=@row[0];
#+document.forms["tc"].shop.options[document.forms["tc"].shop.selectedIndex].value;
print 
"
alert&#40;\"123\"+$qqq&#41;;
}
[removed]
</div>