#!/usr/local/bin/perl -w

use Socket;

my $host = shift || 'localhost';
my $port = shift || 5194;
my $iaddr = inet_aton($host);
my $paddr = sockaddr_in($port, $iaddr);
my $proto = getprotobyname('tcp');

socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
connect(SOCK, $paddr) or die "connect: $!";
print "Perl client calling $host $port\n";

while (<STDIN>) {
	syswrite(SOCK, $_, length($_));
	my $reply = <SOCK> || "";
	chomp $reply;
	print "got [$reply]\n";
	last if ($_ =~ /exit/);
}
close(SOCK);