#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;

my $PORT = 7070;

if (!$ARGV[0]) {
    print "Usage:  $0 Peer_IPAddress [Port]\n";
    exit
} elsif ($ARGV[2]) {
    print "Usage:  $0 Peer_IPAddress [Port]\n";
    exit
} elsif ($ARGV[1]) {
    $PORT = $ARGV[1]
} 

my $PEER = $ARGV[0];

my $socket = IO::Socket::INET->new(
    Proto    => 'tcp',
    PeerAddr => $PEER,
    PeerPort => $PORT
) || die "Cannot create client\n";

#print scalar <$socket>;
while (1) {
    print scalar <$socket>;
    print "PROMPT> ";
    my $message = <STDIN>;
    chomp $message;

    if (($message !~ /^q(?:uit)?$/i) && ($message !~ /^e(?:xit)?$/i)) {
        print $socket $message . "\n"
    } else {
        last
    }
}
close($socket);