#!/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;
};

##</code><code>##

plackup -s Starman --workers 2 11130232.pl

##</code><code>##

for i in {1..100} ; do curl http://localhost:5000 & done

##</code><code>##

$ curl [HTTP://localhost:5000]
55
$ curl [HTTP://localhost:5000]
47