package pkg3;

sub foo { print "$_[0]: meta=$meta;\n"; };

package pkg2;

pkg1::test1(\&pkg3::foo);