RFC865 compliant QOTD server using Mojo::IOLoop. See also https://tools.ietf.org/html/rfc865

qotd

#!/usr/bin/env perl

use Mojo::IOLoop;

my $server = Mojo::IOLoop->server({address => '127.0.0.1', port => 17}, sub {
  my ($loop, $stream, $id) = @_;
  $loop->subprocess(sub{ scalar `fortune -n 512 -s` }, sub {
    my (undef, $err, $qotd) = @_;
    $stream->write($qotd, sub { shift->close });
  });
});

Mojo::IOLoop->acceptor($server);
Mojo::IOLoop->start;