package Foo;

declare $slave::whatever;  # Inventing a keyword to declare fully qualified names.

$slave::whatever = 1;

__END__

package Bar;

declare $slave::hwatever;

print $slave::hwatever;

__END__