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

#then later on...

print $s_socket "$match\n";
print scalar <$s_socket>;