Why does this simple Perl client not work?

Question

I am fairly new to IPC with sockets and expect this issue is a simple one to resolve.

I'm trying to understand why I cannot get this example script from perldoc perlipc to run on my Ubuntu setup:

#!/usr/bin/perl -w
use IO::Socket;
$remote = IO::Socket::INET->new(
                                 Proto    => "tcp",
                                 PeerAddr => "localhost",
                                 PeerPort => "daytime(13)",
                               )
          || die "can't connect to daytime service on localhost";

while (<$remote>) { print }

The script dies because the TCP client cannot be established.

Running $ less /etc/services shows me that daytime(13) is defined. What could be wrong here?

Answer 1

Are you running anything that provides a daytime service? From Wikipedia:

On UNIX-like operating systems a daytime server is usually built into the inetd (or xinetd) daemon. The service is usually not enabled by default. It may be enabled by adding the following lines to the file /etc/inetd.conf and telling inetd to reload its configuration.

 daytime   stream  tcp     nowait  root    internal
 daytime   dgram   udp     wait    root    internal

Thus you have to enable daytime service in the inetd.conf.