Select Code to Download

#!/usr/bin/perl -l
our $foo = "bar"; # foo is a package variable
...
print $$baz;
my $quux = \$foo; # reference to scalar slot of *foo
print "quux is $quux";