sub such_eintr { my (%param) = @_; my $param = \%param; print "\n"; print "FORMULAR"; print ''; print '
'; .... ..... print ' <<< '; .... .... } ###### #Benutzer aus Tabelle holen ###### sub ben_holen { my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr; my $statement_suchen="SELECT name FROM zus_doc_benutzer"; my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr; $sth_suchen->execute or die $DBI::errstr; while (my ($name) = $sth_suchen->fetchrow_array()) { print qq~~; } $sth_suchen->finish(); $dbh->disconnect(); }