Como determinar o nome da sub-rotina de uma referência de código Perl? Também gostaria de distinguir entre sub-rotinas nomeadas e anônimas.

Graças aessa questã Eu sei como imprimir o código, mas ainda não sei como obter o nom

Por exemplo, eu gostaria de obter 'inigo_montoya' do seguinte:

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
$Data::Dumper::Deparse = 1;

my $sub_ref = \&inigo_montoya;

print Dumper $sub_ref;



# === subroutines ===

sub inigo_montoya {
  print <<end_quote;
I will go up to the six-fingered man and say, "Hello. My name is Inigo
Montoya. You killed my father. Prepare to die."';
end_quote
}