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) {...}