# /usr/bin/perl -wT
use lib ('.','./extlib2/lib/perl5');
use Plack::Request;
use Data::Dumper;

my $handler = sub {
my $env = shift;
my $req = Plack::Request->new($env);
my $cookie = $req->cookies;
my $res = Plack::Request->new_response();
if ($cookie) {
	$res->status(200);
	$res->headers;
	$res->body(["COOKIE", Dumper $cookie, "ENV", Dumper $env]);
	$res->finalize
}
else {
	$res->cookies->{'session_id'}='1234';
	$res->redirect("/");
	$res->finalize;
}
};