#!/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