#!/usr/bin/perl

package ding;
our $a="x";

package dong;
our $a="a";

sub show {
    print $a;
}

{
    local *dong::=*ding::;
    dong::show(); # soll "x" liefern, gibt aber "a"
}