c:\@Work\Perl\monks>perl -wMstrict -le
"{ package Foo;  $::bar = 'Baz';  sub p_bar { print $::bar; } }
 ;;
 Foo::p_bar;
 ;;
 { package Fiz;  sub new_bar { $::bar = 'Boff'; } }
 Fiz::new_bar;
 Foo::p_bar;
 ;;
 $::bar = 'Quux';
 print $::bar;
"
Baz
Boff
Quux