#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket;


my $socket = new IO::Socket::INET(
	LocalHost => '127.0.0.1',
	LocalPort => 7070,
	Proto => 'tcp',
	Listen => 1,
	Reuse => 1,
);
die "Could not create socket\n" unless $socket;

while( 1 ) {
	my $input = $socket->accept();
	print <$input> ."\n";
	close( $input );
}

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket;

sub makeSock {
	my $socket = new IO::Socket::INET(
		PeerAddr => 'localhost',
		PeerPort => 7070,
		Proto => 'tcp',
	);
	die "Could not connect\n" unless $socket;
	return $socket;
}

my $i = 1;

while( 1 ) {
	my $socket = makeSock();
	print $socket $i;
	close( $socket );
	$i++;
}