Select Code to Download

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

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