Select Code to Download

#!/usr/bin/perl

...
print "$Our::a  <--shouldn't print anything here\n";
print "$main::a <--should print 'a' from the main symbol table here\n"
+;
print "$a       <--should also print 'a' from the main symbol table he
+re\n\t\tdue to lexically scoped alias\n";

foo
        <--shouldn't print anything here
foo     <--should print 'a' from the main symbol table here
foo     <--should also print 'a' from the main symbol table here
                due to lexically scoped alias