Select Code to Download

package my_global;
require Exporter;
...
$var1 = "hi";
$var4 = "bye";
1;

use strict;
use my_global;  #or <B>use my_global qw($var1 $var4);</B>

print "var1: $var1\n";
print "var4: $var4\n";
exit;