# thess pragmata apply to everything below
use strict; 
use warnings;
package Foo;
my $Bar;
sub Foo{}
package Bar;
my $Bar;
sub Bar{}
sub Foo::Bar{}
package Foo;
sub Baz{}
sub Bar{}
__END__
"my" variable $Bar masks earlier declaration in same scope at D:\perl\devlib\Text\strict2.pl line 7.
Subroutine Bar redefined at D:\perl\devlib\Text\strict2.pl line 12.