$my_name = sub{($a=(caller)[0])eq'main'?$0:$a}->();