# Foo.pm

package Foo;

use strict;
use warnings;

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

1;