##################
# MyPackage
##################

package MyPackage;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(exportedSub);
@EXPORT_OK = qw(exportedOkSub);

$var = 'a variable';

sub exportedSub {
    print "Exported sub called!\n";
}

sub exportedOkSub {
    print "ExportedOK sub called!\n";
}

1;

#################
# Script.pl
#################
use MyPackage qw(exportedOkSub);

exportedSub();

exportedOkSub();

print "Var: " . $MyPackage::var . "\n";

exit 0;