#!perl
sub clotest {
    my $foo = 1;
    sub closub {
	return $foo;
    }
    {
	my $foo = 3;
	clofoo(\&closub);
    }
}

sub clofoo {
    my $fn = shift;
    print "foo: ", &$fn(), "\n";
}

clotest();
