sub print_out
{
   
    my $self = shift;
    
    my %errors = %{$self->{data}{errors}};
    
    print "Fehlerart: ",$_," (",$errors{$_}," Stück).\n<br />" for(keys(%errors));
    
    my $anzahl_fehler = 0;
    
    $anzahl_fehler += $_ for(values(%errors));
    
    print "Es gab $anzahl_fehler Fehler\n";
}