#!/usr/bin/perl
#
# Compare and contrast to app.psgi
#
my $counter = 0;
sub {
    my $r = shift;
    my $n = $counter++;
    # loading the env is optional under Feersum.  For a "fair" speed
    # comparison to app.psgi, uncomment this line:
#    my $env = $r->env();
    $r->send_response(200, [
        'Content-Type' => 'text/plain',
        'Connection' => 'close',
    ], [\"Hello customer number 0x",sprintf('%08x',$n),\"\n"]);
};
