my $sth = $dbh->prepare('SELECT * FROM crian') or
                  die "Fehler bei der Vorbereitung Hash-Ref:\n" . 
                      "\t$DBI::errstr\n";
    
    
    $sth->execute() or die "Fehler bei der Ausfuehrung Hash-Ref:\n".
                           "\t$DBI::errstr\n";
    
    $sth->dump_results();
    
    while (my $row = $sth->fetchrow_hashref) {
        printf("%20s: %s\n", $_, $row->{$_})
            for (@Crian_rows);
    }
    warn "Fehler beim Abrufen der Daten Hash-Ref:\n" .
         "\t$DBI::errstr\n" if $DBI::err;