use strict;
package foo;
our $quux = "Howdy, world!\n";
# dump symbol table
print "foo: $_ => $foo::{$_}\n" for keys %foo::;

package bar;
# dump symbol table
print "bar: $_ => $bar::{$_}\n" for keys %bar::;
print $quux;
__END__
foo: quux => *foo::quux
Howdy, world!

##</code><code>##

# file include.pl
use strict;
our $me;
sub japh {
    print $me,"\n";
}

##</code><code>##

#!/usr/bin/perl
use strict;
our $me = "Just another perl hacker";
require "include.pl";
japh();

##</code><code>##

Just another perl hacker