use Sub::Identify 'sub_fullname';

my $name = sub_fullname($ref);