socket

[bob ackerman]

perlipc doc has sample for doing a socket:

use IO::Socket;
$remote = IO::Socket::INET->new(
                                   Proto    => "tcp",
                                   PeerAddr => "localhost",
                                   PeerPort => "daytime(13)",
                           )
                         or die "cannot connect to daytime port at localhost";
while ( <$remote> ) { print }

but it dies for me.
i see 'daytime' in /etc/services at port 13.
osx 10.1.3
perl 5.6.1