You might consider B. Perhaps something like:

#!/usr/local/bin/perl
use strict;
use warnings;
use B;

HERE:
B::walkoptree(B::main_root(), "print_label");
THERE:
exit(0);


sub B::OP::print_label {
    my $op = shift;
    if(ref($op) eq 'B::COP') {
        my $label = $op->label;
        if(defined($label)) {
            my $file = $op->file;
            my $line = $op->line;
            print "$label: $file: $line\n";
        }
    }
}
[download]

Which produces

HERE: ./test.pl: 6
THERE: ./test.pl: 8
[download]

update: The label, line and file information is stored in the Code tree (a.k.a. OP tree) - not in any stash or pad.

Wow, nice!!!

Escpecially thank you for showing me new ways for how to analyze the op-tree! 8)

Cheers Rolf

For instance is it possible to get the line number of a label?

If you remember them, yes ;-)

#!/usr/bin/perl

use strict;
use warnings;

my $i;

my $FOO_LABEL_LINE = __LINE__; FOO: {
    $i++;
    redo FOO if $i < 10;
}   

print "Label FOO is at line $FOO_LABEL_LINE\n";
__END__
Label FOO is at line 8
[download]