print '<select name="Titel" size="1">',"\n";
my $sql = qq{select titel from filme};
my $sth = $dbh->prepare($sql);
$sth->execute();
while(@ergebnis=$sth->fetchrow_array)
{
print "<option value='$ergebnis[0]'>$ergebnis[0]</option>","\n";
}
$sth->finish();