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

use Plack::Builder;

our $global = 1;

my $app = sub {
    my $env = shift;
    my $status = 200;
    my $headers = ['Content-type' => 'text/html'];

    return [$status, $headers, [$global++]]
};

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