{ my $foo; sub foo { 1 } }      # not a closure
{ my $foo; sub foo { $foo } }   # a closure

##</code><code>##

my $GLOBAL = 1;

sub foo {
    ... ; 
    ... $GLOBAL ... ;
    ... ;
}