#!/usr/bin/perl -w
use IO::Socket;
$port = 999;
$num_args = scalar( @ARGV );
$host = 'localhost';
print "Connecting to $host\n";
$client_socket = IO::Socket::INET->new(
PeerPort => $port,
PeerAddr => $host,
Proto => 'tcp',
Type => SOCK_STREAM )
or die "Cannot open socket: $!";
# Read data from server.
$msg = <$client_socket>;
print "Recieved message from server:\n";
print "$msg\n";
$client_socket->close();
|