#!/usr/bin/perl

our $a = "foo";

print "$a\n";


package Our;

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 here\n\t\tdue to lexically scoped alias\n";

##</code><code>##

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