#! perl
use strict;
use warnings;

package Foo;

sub f
{
    my ($package, $filename, $line) = caller;
    printf "Function '%s::f()' called from package '%s'\n", __PACKAGE__, $package;
}

package Bar;

Foo::f();