[oak perl] corrected lexical script

[Sandy Santra]

There were so many holes in that piece of code I last posted that I want to 
crawl under a rock.  Here's a slight revision, although this wouldn't work 
if it had "use strict" in it, either:

#TEST1 -- lexical trumps package
{sub standard {
         my $x = red;
         print "$x\n";
}
&standard; # should print red
}
print "$x\n"; # should print only newline

#TEST2 package trumps lexical
$x = pink;
print "$x\n"; # should print pink

sub marine {
         my $x = blue;
         print "$x\n"; # should print blue
}
&marine; # should print blue
print "$x\n"; # should print pink

--Sandy Santra