##
{
my $foo;
{
my $bar;
...
}
...
}
##
##
for (1..2) {
my $x; # New variable each time.
print($x);
}
##
##
package Foo;
use Carp qw( carp );
carp('One');
package Bar;
...
package Foo;
carp('Two');
##
##
package Foo;
use Carp qw( carp );
carp('One');
package Bar;
Foo::carp('Two');
package Foo;
carp('Three');