##INHALT
print "<br />";
print " Hier klicken um den Inhalt der DB anzuzeigen --> <INPUT TYPE=SUBMIT NAME=Inhalt VALUE=\"Inhalt der DB\">\n";

######SELECT#####
sub sel {
my $dbh = DBI->connect("dbi:Pg:dbname=raum;host=127.0.0.1;port=5432", "perl_db", "test",{ RaiseError => 0, AutoCommit => 0}) or croak $DBI::errstr;
my $cmd = 'SELECT id, name FROM t_personen ORDER BY id ASC'; my $sth = $dbh->prepare_cached($cmd)
   or croak "SQL prepare failed '$cmd': " . $dbh->errstr;

my $rc = $sth->execute
    || die "Anweisung kann nicht ausgeführt werden: $DBI::errstr";

print "Query gibt $sth->{NUM_OF_FIELDS} Felder zurück.\n\n"; print "$sth->{NAME}->[0]: $sth->{NAME}->[1]\n"; while 
((my $id,my $name) = $sth->fetchrow_array) {
    print "$id: $name\n";
}
# Auf Probleme untersuchen, die die Fetch-Operation schon früh beendet haben können
warn $DBI::errstr if $DBI::err;
$sth->finish;

$dbh->commit() or die "Failed to save modified data: " . $dbh->errstr;