⭐ in reply to Can I get a subroutine's name from inside the subroutine?

use the caller function: 
sub foo {
  my $this_subs_name = (caller(0))[3];
}

[download]

In Section Seekers of Perl Wisdom