Select Code to Download

sub instantiator {
  my $state = shift;
...
    return sub { ... make a complete hash of things ... }
  }
}

package Foo;

...
$f = Foo::instantiate( ... );

$f->( $a, $b, $c );