print '<INPUT size="15" type="text" name="ersteller" value="'.$ersteller.'" readonly>;
  <select onchange="ersteller.value=options[selectedIndex].value">
  <option value="M.Kapanke">M.Kapanke</option>
<option value="G.Goettelmann">G.Goettelmann</option>
<option value="T.Doppler">T.Doppler</option>
        }
                </select>';

sub ben_holen  {
        my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;

        my $statement_suchen="SELECT * FROM zus_doc_benutzer";
        my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr;
        $sth_suchen->execute or die $DBI::errstr;
        my @daten=();
        while (my @row = $sth_suchen->fetchrow_array()) {
                push @daten, @_;
        }
        $sth_suchen->finish();
        $dbh->disconnect();
}