1*256a93a4Safresh1#!perl 2*256a93a4Safresh1# test code for "l $var" where $var is lexical 3*256a93a4Safresh1sub foo { 4*256a93a4Safresh1 print "Hello\n"; 5*256a93a4Safresh1} 6*256a93a4Safresh1 7*256a93a4Safresh1sub bar { 8*256a93a4Safresh1 print "Goodbye\n"; 9*256a93a4Safresh1} 10*256a93a4Safresh1 11*256a93a4Safresh1my $x = \&foo; 12*256a93a4Safresh1our $y = \&bar; 13*256a93a4Safresh1$DB::single = 1; 14*256a93a4Safresh1my $z = 1; 15