#!/usr/bin/perl

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

my $PORT = $ARGV[0] || 7070;

$| = 1;

my $socket = IO::Socket::INET->new(
    Proto     => "tcp",
    LocalPort => $PORT,
    Listen    => SOMAXCONN
) || die "Cannot create server\n";

print "TCP Server waiting for client on port $PORT\n";

while (my $client = $socket->accept) {
    my $peer_addr = $client->peerhost;
    my $peer_port = $client->peerport;

    print $client "Welcome to SERVER\n";
    print "CONNECTION: ($peer_addr:$peer_port)\n";

    while (<$client>) {
        chomp $_;
        print "($peer_addr:$peer_port): $_\n";
        print $client "$.: $_\n"
    }
    close($client);
    print "DISCONNECT: ($peer_addr:$peer_port)\n";
} 
die "Cannot accept socket ($!)\n";

##</code><code>##

#!/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);