Select Code to Download

use strict;
use warnings;
...
my $F=f();
my $G=g();
print $F->(),$G->(),"," for 1..4;

sub f { $x; sub { $x++ }}