#!/usr/bin/perl use lib qw( lib ); use Sprocket qw( Server Plugin::JSONAir ); use POE; my %opts = ( LogLevel => 4, TimeOut => 0, # MaxConnections => 10000, ); Sprocket::Server->spawn( %opts, Name => 'JSON Air Server', ListenPort => 2021, ListenAddress => '0.0.0.0', Plugins => [ { Plugin => Sprocket::Plugin::JSONAir->new(), Priority => 0, }, ], ); $poe_kernel->run(); 1;