# Foo.pm

package Foo;

use strict;
use warnings;

sub bar {
    sprintf "hiya from -%s-(@_) invoked from '%s'", (caller 0)[3, 0];
    }

1;