IOLoop Server example

ioloop_server.pl

use Mojo::IOLoop::Server;

# Create listen socket
my $server = Mojo::IOLoop::Server->new;

$server->on(accept => sub {
    my ($server, $handle) = @_;

    print($handle "hello\r\n");
});

$server->listen(port => 3000);

$server->start;

$server->reactor->start unless $server->reactor->is_running;