my $cmd0 = "SELECT parent FROM seiten";
       my $sth0 = $dbh->prepare($cmd0) || die $dbh->errstr;
       my $rv0  = $sth->execute        || die $dbh->errstr;