#!/usr/bin/perl
#server.pl

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

$| = 1; #auto flush

my ($socket,$client, $peerAddress, $peerPort);

$socket = new IO::Socket::INET (
	LocalHost => '127.0.0.1',
	LocalPort => '5000',
	Proto => 'tcp',
	Listen => 5,
	Reuse => 1,
) || die "cannot create socket $!\n";

print "listening for client connection on 3083\n";

while(1) {
	# waiting for new client connection.
	$client = $socket->accept();

	$peerAddress = $client->peerhost();
	$peerPort = $client->peerport();

	print "Accepted New Client Connection From: $peerAddress $peerPort\n";

}

$socket->close();