One option would be to use closures.

## DOC: returns a function that does that and that.
sub ff {
  my $myval=myfunc();
  ...
  sub { g(++$myval) }
}

...

my $f = ff;

...

my $x = $f->();
[download]