sub SaveSuccess{
	my $paramsInput = shift; # Übernahme eines Hash aus diesem Aufruf im Hauptprogramm "SaveSuccess(%params);"
	my %params = %{$paramsInput}; # dereferenzieren
	my $ausgabe;
	while ( my($key, $value) = each (\%params)){ $ausgabe .= "$key: $value \n"; }
}