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

##</code><code>##

*main::package_var=\(my $lexical_var); 
$lexical_var='foo'; 
print $main::package_var; #prints 'foo'