Select Code to Download

package AA;
$AA::var = __PACKAGE__;
...
package BB;
$BB::var = __PACKAGE__;
print "$var\n";         # Prints 'AA'.

{
   package AA;
...
   $BB::var = __PACKAGE__;
   print "$var\n";         # Compile error!
}