$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() ##<br>";
#  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]<br>";
#    
#  
#  }

while (my $set = $sth->fetchrow_hashref()) { 
 # mach was mit hashref $set, z.B.           
 foreach (keys %$set) {                      
   print "$_ => " . $set->{$_} . "<br>\n";            
 }                                            $sth->finish();
 print "<hr>\n";                              $dbh->disconnect();
} # while