$ cat /tmp/Foo.pm
sub f {
    print $0, ",", (caller)[1], "\n";
}
f();
1;

$ perl -I/tmp -MFoo -e1
-e,/tmp/Foo.pm
$