sub bar { 
  my $foo="bar"; 
  return sub { print "foo is $foo\n"; } 
  }
   my $fn = bar(); 
   &$fn;

foo is bar