#!/usr/bin/perl --
use CGI();
use Data::Dump qw/ dd pp /;
my $app = sub {
#~     die "@_";
    my $q = CGI->new( $_[0] );
    return [
        '200',
        [ 'Content-Type' => 'text/html',
          'Content-Length' => '2',
        ],
        [ $q->start_html, $q->Dump, $q->end_html, ],
    ];
};