my $s_socket = IO::Socket::INET->
new('LocalPort' => $S_PORT,
	'Proto' => 'tcp',
	'Listen' => 2)
or die "Third: Can't create socket to Second($!)\n";

while (my $second = $s_socket->accept) {...}

##</code><code>##

while(<$second>)
{

if($_ eq $match) {	
	print $s_socket "$match\n";
	scalar <$s_socket>;
			
	last;
}

}