sub generate {
    my $foo = shift;
    sub { $foo };
}