#!/usr/bin/perl -l
our $foo = "bar"; # foo is a package variable
                  # hence *foo typglob exists
print "typeglob *foo ", exists $main::{foo} ? "exists" : "doesn't exist";
print "typeglob *bar ", exists $main::{bar} ? "exists" : "doesn't exist";
print "foo typeglob: ", *foo;
print "foo scalar slot ref: ",*{"main::foo"}{SCALAR};
my $bar = *foo;
print "bar content: $bar";
my $baz = *{"main::foo"}{SCALAR};
print "baz content: $baz";
print $$baz;
my $quux = \$foo; # reference to scalar slot of *foo
print "quux is $quux";