#!/usr/bin/perl

sub test;

$test = "global\n";

{
	local $test = "dynamisch überschatten!\n";
	&test ();
	print $test;

}

print $test;

sub test { print $test; } # gebe globales Test aus!