# initialize host and port
$socket = IO::Socket::INET->new(Proto => 'tcp', LocalPort => 1500, Listen => SOMAXCONN, ReuseAddr => 1, Reuse => 1) or die "Couldn't connect to port:\n";

warn "Waiting for incoming connections on port 7535...\n";

while (!$quit)
{
$socket->autoflush(1);
next unless my $session = $socket->accept;

my $peer = gethostbyaddr($session->peeradd, AF_INET) || $session->peerhost;
my $port = $session->peerport;
warn "Connection from ($peer, $port)\n";

$session->autoflush(1);

while (<$session>)
{
$session->autoflush(1);
chomp;
print $_ . "\n";
parsemessage($_);
}
warn "Connection from ($peer, $port) finished\n"; close $session;
}

warn "Closing connection(s)...\n";