package my_global;
require Exporter;

my @var_arr = qw( $var4 $var5 $var6 );

our $VERSION = 1.00;
our @ISA       = qw(Exporter);
our @EXPORT_OK = (@var_arr, qw( $var1 $var2 $var3 ));
our @EXPORT    = @EXPORT_OK;

# Just to test...
$var1 = "hi";
$var4 = "bye";
1;

##</code><code>##

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

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