$ cat /tmp/x
sub f {
    my $f = (caller(0))[1];
    print "I am:   ", __FILE__, "\n";
    print "caller: $f\n";
}
1;

$ perl585 -e 'require "/tmp/x"; f()'
I am:   /tmp/x
caller: -e
$