my $counter= 1;

warn "(Re)initializing application $0\n";

return sub {
    [200, {}, ["Hello request " . $counter++]]
};