gistfile1.pl

use Plack::Builder;
use Plack::Request;
use Cache::Memcached::Fast;
use JSON::XS;

my $_JSON = JSON::XS->new->utf8;
my $mem = Cache::Memcached::Fast->new({servers=>[qw/127.0.0.1:11211/]});
$mem->set('counter:1',0);
$mem->disconnect_all;
builder {
    enable 'AccessLog', logger => sub { };
    sub {
        my $env = shift;
      # my $req = Plack::Request->new($env);
        my $id = 1;#$req->parameters->{id};
        my $counter = $mem->incr('counter:'.$id);
        [200, ['Content-Type'=>'application/json; charset=UTF-8'], [$_JSON->encode({counter=>$counter})]];
    }
};