# package.pm
$var = 'a variable';

sub mySub {
    print "called!\n";
}

1;

#################
# script.pl
use package;

mySub();

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

exit 0;