package MyPackage;
use Exporter;
use vars qw / @EXPORTS @ISA /;

my @EXPORTS=qw / mysub /;
my @ISA = qw/ Exporter /; 
sub mysub {
    print "mysub is going to return \"mysub\"\n";
    return "mysub";
}

1;

##</code><code>##

#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use MyPackage;

print mysub(),"\n";