Select Code to Download

$Foo::d = 'foo';
$Bar::d = 'bar';
...
   our $d;         # Creates an alias to $Bar::d
   print("$d\n");  # Prints 'bar'
}                  # End of alias's scope.

$Foo::d = 'foo';
$Bar::d = 'bar';
...
print("$d\n");  # Prints 'foo'

                # End of alias's scope.