#!/usr/bin/perl -w

#Client

use strict;
use IO::Socket::INET;

my $remote_host = "127.0.0.1"; #define remote host... local host now probably
my $remote_port = 5050; #define port here

my $socket = IO::Socket::INET->new(
	PeerAddr => $remote_host,
	PeerPort => $remote_port,
	Proto	=> "tcp",
	Type	 => SOCK_STREAM)
	|| die "Can't connect to $remote_host:$remote_port -> $!\n";

print $socket "Quoth the Raven\n";
my $answer = <$socket>;
print $answer;
close($socket);