$sql = "select * from lieder;";
# ORDER BY l.interpret, l.titel;
my $dbh = verbindung_zur_datenbank(); # $dbh: database handle
my $sth = $dbh->prepare($sql); # $sth: statement handle
$sth->execute()
|| die "Content-type: text/html\n\n"
."## Fehler bei execute() ##";
print "## nach execute() ##
";
# my $result = $sth->fetchall_arrayref(); # alle Zeilen / Spalten im verketteten Hash
#
# for (my $i=0; $i = @{$result}-1; $i++) { # Zeilen durchlaufen
# print "$result->[$i][2]
";
#
#
# }
while (my $set = $sth->fetchrow_hashref()) {
# mach was mit hashref $set, z.B.
foreach (keys %$set) {
print "$_ => " . $set->{$_} . "
\n";
} $sth->finish();
print "