#!/usr/bin/perl -w use IO::Socket; use Net::hostent; $PORT = 6379; $server = IO::Socket::INET->new( Proto => 'tcp', LocalPort => $PORT, Listen => 5, Reuse => 1) or die "can't setup server" unless $server; print "SERVER Waiting for client connection on port $PORT\n"; while ($client = $server->accept()) { $client->autoflush(1); while ( <$client> ) { if (/quit|exit/i) { exit; } else { print $_;} } close $client; }