On line 89, inet_aton is called:
if (!defined $address && defined $hname) {
$address = inet_aton($hname);
}but inet_aton isn't imported in the Socket use line:
use Socket qw(INADDR_ANY inet_ntoa AF_UNIX PF_UNIX);
You end up with this when trying to pass a hostname to the Hostname parameter:
Undefined subroutine &POE::Component::Server::TCP::inet_aton called at /usr/lib/perl5/site_perl/POE/Component/Server/TCP.pm line 88.
