sub ersteRoutine {
	my $string = "Test";
	zweiteRoutine($string);
} # ersteRoutine

sub zweiteRoutine {
	my ($wert) = @_;
	print $wert;
} # zweiteRoutine