package my_testmodule;

$VERSION = '1.00';

use strict;
use warnings;
our $gMessage;

undef our @list;

use Exporter;
our @ISA    = qw(Exporter);
our @EXPORT = qw(@list);

sub import {
    my $class = shift;
    $gMessage = shift;
    print "Yep, I'm in here ...\n\n";
    my_sub();
}

# &my_sub;

sub my_sub {
    print "$gMessage\n\n" if ($gMessage);

    push (@list,'oranges','lemons','apples');
}
1;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use my_testmodule 'xyz';

print "$list[0]\n\n";

exit;