foo();
sub foo {
	my $foo = "foo";
	bar();
	print $foo;
}
sub bar {
	print $foo;  # doesn't work!
}