gistfile1.txt

sub {
    my $env = shift;                        # request
    # ...
    return [                                # response
        200,                                # status code
        [ "Content-Type" => "text/plain" ], # headers
        ["Hello world"]                     # body
    ];
}