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]

Make sure you read the documetation on how callerworks -- knowing how many layers back to go, and what is actually supported on your platform (notably if Windows), might take some playing with it to see what you get.

print __PACKAGE__, ' called from ', (caller)1, ".\n"; Worked perfect! Its exactly what I was looking for. Thanks!

I should think Findbinand $0 would be more helpful in figuring out how the script was called, but I don't see how it can help find who called the Module.

Can you post an example?

You said the name of the script calling the module, so I'd assumed you meant the actual script being run. If you mean what file the use or require was called from then no, FindBin and $0 won't help in that case.

                - Ant
                - Some of my best work - (1 2 3)

#!perl -w
print $0;
[download]

> perl zeroTest.pl
zeroTest.pl
[download]

The demonstrated technique will show you were the first use was.

If you wanna know all places which do a use', put the check for caller into you 'import() sub.

Maybe just using Carp might be easier.