sub ausgabe{ print qq~

Fehlermeldungen

~; for my $key(keys(%errors)){ print ''.$_.' '.$errors{$_}; } print qq~ ~; }