Not according to the perl I use. The code below dies with Can't localize lexical variable $bar at pack.pl line 10.

#!/usr/bin/perl     -w


$main::foo = 'global';
my $bar = "my";
print "foo is ",$foo,"\n";
print "my is ",$bar,"\n";
{
    local $foo;
    local $bar;  # Dies here.

    print "foo is ",$foo,"\n";
    print "foo is ",$main::foo,"\n";
    print "bar is ",$bar,"\n";

}
print "foo is ",$foo,"\n";
print "my is ",$bar,"\n";
[download]

-Lee

"To be civilized is to deny one's nature."