# Foo.pm

package Foo;

use strict;
use warnings;

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

1;

##</code><code>##

Win8 Strawberry 5.8.9.5 (32)  Fri 09/02/2022 18:25:19
C:\@Work\Perl\monks\nataraj
>perl -wMstrict  -le "use Foo;  Foo::bar(qw(some stuff));  print 'ok'"
hiya from -Foo::bar-(some stuff) invoked from 'main'
ok