use Plack::Builder;
use Plack::Session;
use Data::Dumper;


  my $app = sub {
      my $env = shift;
      my $session = Plack::Session->new($env);

      $session->set('counter',$session->get('counter')+1);

      my $dumped = Dumper($session);
      return [
          200,
          [ 'Content-Type' => 'text/plain' ],
          [ $dumped ],
      ];
  };


  builder {
      enable 'Session';
      $app;
  };