LJ Archive CD

Listing 2. client1.pl

#! /usr/bin/perl -w
# client1.pl - a simple client
use strict;
use Socket;
# initialize host and port
my $host = shift || 'server.onsight.com';
my $port = shift || 7890;
my $proto = getprotobyname('tcp');
# get the port address
my $iaddr = inet_aton($host);
my $paddr = sockaddr_in($port, $iaddr);
# create the socket, connect to the port
socket(SOCKET, PF_INET, SOCK_STREAM, $proto)
                        or die "socket: $!";
connect(SOCKET, $paddr) or die "connect: $!";
while (<SOCKET>) {
        print;
}
close SOCKET or die "close: $!";

LJ Archive CD