MyModule.pm:

package MyModule;

use warnings;
use strict;

print __PACKAGE__, ' called from ', (caller)[1], ".\n";

sub func {
    return 2 * shift
}

__PACKAGE__
[download]

script.pl:

#!/usr/bin/perl
use warnings;
use strict;

use MyModule;
warn MyModule::func(21);
[download]

Output:

MyModule called from ./script.pl.
42 at ./script.pl line 8.
[download]