Select Code to Download

my $foo;
sub bar {}

package Foo;
our $Bar;

my $foo=1;     # create an anonymous lexical and label it as $foo
{
...
print $Foo,$/;

# prints 2 and 2

# thess pragmata apply to everything below
use strict; 
...
__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.