#!/usr/bin/perl -w
use strict;
use IO::Socket;

my $listener = IO::Socket::INET->new
(
	Listen    => 5,
	LocalAddr => 'localhost',
	LocalPort => 1001,
	Proto     => 'tcp'
);


if(defined(my $connection = $listener->accept))
{
	print "New connection\n";
	
	while(my $line = $connection->getline())
	{
		last if($line =~ /^quit/);
		print $line;
	}
	$connection->close;
	undef $connection;
}