package Foo;

sub test {
    print "test invoked on behalf of ",
          shift,
          " with args: @_\n";
}

package main;

test Foo(47);