my $cmd = "SELECT titel FROM seiten";
                my $sth = $dbh->prepare($cmd) || die $dbh->errstr;
                if( my $rv = $sth->execute ){
                    print Dumper( $rv );
                    if( $rv ){
                        $template->param( "SEITEN" => [ %{ $sth->fetchrow_hashref } ] );
                    }else{
                        $template->param( "SEITEN" => [ { titel => 'keine Seite vorhanden',  } ] );
                    }
                }else{
                    die "Konnte Seitentitel nicht aus seiten-Datenbank lesen: " . $dbh->errstr;
                }