use JSON qw(encode_json);
my $app = sub { return [200, [], [encode_json [] ]] };