#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use DBI;

#Variabeln Deklarierung
$dbname="cdliste";
$username="root";
$pw="123";
$db = "DBI:mysql:$dbname";

#Die Verbindung zur Datenbank wird hergestellt
$dbh = DBI->connect($db, $username, $pw, { RaiseError => 1 }) || die("Kann DB nicht öffnen!");




sub selecthashref ($){

     $sth = $dbh->prepare( $_[0] ) or return "$DBI::err: $DBI::errstr";
     $sth->execute();
     return $sth->fetchrow_hashref();

};


#Legt den Dokumenttypen fest
print "Content-type: text/html; charset=iso-8859-1\n\n";
[b]
$row_ref = selecthashref("SELECT * FROM ordner ORDER BY ordnername ASC");
while ($row_ref){[/b]

    print "$row_ref->{ordnerid}\n";
}