#!/usr/bin/perl -w
#       Modified from code from "Sockets" sect of chap 6
#       Programming PERL" 2nd ed (Sep 96)   WJS Apr 06
require 5.002;
use strict;
use Socket;
use FileHandle;

my ($remote,$port, $iaddr, $paddr, $proto, $line, $command);

($remote = shift) || (die "No remote host\n");
($port = shift) || (die "No remote port\n");
($iaddr = inet_aton($remote)) || (die "No inet addr for host $remote\n");
$paddr = sockaddr_in($port,$iaddr);

$proto = getprotobyname('tcp');
socket(SOCK,PF_INET,SOCK_STREAM,$proto) || (die "socket: $!");
connect(SOCK,$paddr) || (die "connect: $!");
autoflush SOCK 1;
while ($line = <SOCK>) {
  print $line;
  print "Command to send to server?  ";
  $command = <>;
  $command || last;
  print SOCK $command;
}
close (SOCK) || (die "close: $!");
exit;