package main; local $b = 2; $main::b = 3; print "$b\n"; # prints "3\n"