{ 
  my $foo = "Foo!\n";
  sub makefoo {
    *foo = sub { print $foo };
    $foo;
  }  
} 
makefoo();
foo();