Select Code to Download

    # export $MyPackage::var to $YourPackage::var
    *YourPackage::var = \$MyPackage::var;

    $callpackage = 'YourPackage;
    $pkg = 'MyPackage';
    $sym = 'var';
    ${"${callpkg}::$sym"} = \${"${pkg}::$sym"};

#!perl -l

{
...
    # changes both $Foo::var and the lexical $var
    $Foo::var = 8;
}