sub ausgabe{ open(my $fh,">ziel.html") or die $!; print $fh qq~

Fehlermeldungen

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