#! /usr/local/bin/perl
($hostname,$port) = @ARGV;
$port = 5193 unless $port;
$hostname = 'localhost' unless $hostname;

use Socket ;

$sockaddr = 'S n a4 x8';
# unsigned Short, short in network order, 4 byte ASCII, 8 null bytes


($name, $aliases, $proto) = getprotobyname('tcp');
($name, $aliases, $type, $len, $thataddr) = gethostbyname($hostname);

$that = pack($sockaddr, &AF_INET, $port, $thataddr);

socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $!";

connect(S, $that) || die "connect: $!";

while (<S>) {
    print ;
}