sub make_closures
{
   my $value = shift;
   return sub { $value++ }, sub { print "$value\n" }, sub { $value-- };
}

my ($increment, $display, $decrement) = make_closures( 3 );

$display->();
$increment->();
$display->();
$decrement->();
$display->();