#!perl -l
my $foo='$foo';
package Bar;
print $foo;    #prints '$foo'
package Baz;
print $foo;   #prints '$foo'