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