use strict;
use warnings;
 
my $n="outer";
 
my $f;
 
{
  my $n="ok";
  $f=sub { eval "".shift };
  check();       	    #  "ok"
};
 
sub check {
  print $f->('$n')
}
 
print $n;                   # "outer"
 
exit;