# Module.pm
pacakge Module;
my $var = 'this string';
sub test1 {                print("var = $var\n");       }
sub test2 {       eval('   print("var = $var\n");   '); }
sub test3 { $var; eval('   print("var = $var\n");   '); }