$\="\n";
$,="\t";
 
$s=sub{
    print "me",(caller(0))[3];
    print "mum",(caller(1))[3];
    *__ANON__="__ANON__";				    # reset
  };
 
sub aa {
    *__ANON__="aa";
    goto &$s;
}
 
sub level1 {
  aa();
}
 
level1();
 
print "not reseted  ", *__ANON__;                           # why?

##</code><code>##

me	main::aa
mum	main::level1
not resettet  	*main::aa