use strict; sub out{ my sub this{my $n=9;print "\n$n"} my $i=7; my $j=3 } &this; 9 [download]
In reply to issue 'my' sub cannot work by Anonymous Monk