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

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