#!/usr/bin/perl -w
use strict;

use vars qw($x);
$x = "global";
{
  my $x = 'A';
  sub f { sub { $x++ }       }
  sub g { sub { $x++ } if $x }
}
my $F=f();
my $G=g();
print $F->(),$G->(),"," for 1..4;
print f()->(), g()->(),"," for 1..4;
print $x;
print "\n";

print f(), ",", $F;
print "\n";