D:\tmp>perl
use warnings;
use strict;

sub out{
    my sub this{my $n=9;print "\n$n"}
}

&this;
__END__
Undefined subroutine &main::this called at - line 12.