bench.pl

use strict;
use warnings;

use Plack::Test;
use HTTP::Request;
use Benchmark qw/timethis/;

my $app = sub { [200, [], ['Hello, World!']] };
test_psgi $app, sub {
    my $cb = shift;

    my $req = HTTP::Request->new(GET => 'http://localhost/');
    timethis(100, sub {
        for (1..100) {
            $cb->($req);
        }
    });
};