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