$s=sub{
	my $name=(caller(0))[3];
	my $parent=(caller(1))[3];
	print "I am :$name,my parent is :$parent\n"
};
*aa=$s;
my $bb='bb';
*{$bb}=$s;

aa();
bb();


output:
name:main::__ANON__,parent:
name:main::__ANON__,parent: