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