#! /usr/bin/perl
use warnings;
use strict;

use Plack::Builder;
use Plack::Request;
use Data::Dumper;

my $APP = sub {
    my ($env) = @_;
    my $req = 'Plack::Request'->new($env);

    [200, [], [Dumper($req)]]
};

builder {
    mount '/' => $APP;
};