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!