#!/usr/bin/perl

use strict;
use Socket;

my $port = 2000;
my $hostname = 'localhost';
my $protocol = getprotobyname ("tcp");
my $host = gethostbyname ($hostname);
my $iaddr = sockaddr_in($port,$host);
socket (SOCKET, PF_INET, SOCK_STREAM, $protocol) || die ("Error establishing socket to [$hostname:$port]: $!");
connect (SOCKET, $iaddr);
while (defined(my $line = <SOCKET>)) {
        chomp $line;
        print "Received from [$hostname:$port]:  $line\n";
}
close (SOCKET);

__END__

Output will look like:

  [starky@freak bin]$ ./client-test-inet.pl
  Received from [localhost:2000]:  Hello, world!
  Received from [localhost:2000]:  
  [starky@freak bin]$