$sql = "select * from lieder;";
my $dbh = verbindung_zur_datenbank();   
my $sth = $dbh->prepare($sql); 
$sth->execute() or die "Content-type: text/html\n\n"

while(my @row = $sth->fetchrow_array) {
    print @row[2] . '<br>';
}

$sth->finish();
$dbh->disconnect();