#!/usr/bin/perl -w

use Socket;

$port = 9999;
$proto = getprotobyname("tcp");
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "Can't create socket: $!";
$host = 'localhost';
print "Connecting to $host\n";

$iaddr = inet_aton($host);

$paddr = sockaddr_in($port, $iaddr);

connect(SOCKET, $paddr) or die "Can't connect: $!";

while ($data = <SOCKET>) {
    print $data;
}

close (SOCKET);