my $app = sub {
  return sub {
    my $responder = shift;
    my $writer = $responder->([200, ['Content-Type' => 'text/plain']]);
    $writer->write("hello, world\n");
    $writer->close;
  };
}