package my_module;

$VERSION = '1.00';

use strict;
use warnings;
our $gMessage;

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

sub my_sub {
	print $gMessage;
}
1;

##</code><code>##

Yep, I'm in here ...

xyz