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