The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/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;