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

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

$|++;
while (1) {
	my $incoming = $socket->accept();
	while(<$incoming>) {
		print $_;
	}
	print "\nNext session.\n";
}

close($socket);