subname_test.pl

use v5.10;
use Sub::Name;

my $name1 = subname name1 => sub {
    say( (caller(0))[3] );
    say( (caller(1))[3] );
    say( (caller(2))[3] );
};

my $name2 = subname name2 => sub {
    $name1->();
};


my $name3 = subname name3 => sub {
    $name2->();
};

$name3->();

# Результат будет таким
#main::name1
#main::name2
#main::name3