Select Code to Download

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

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

while(<$second>)
{
...
}

}