Select Code to Download

my $t_socket = IO::Socket::INET->new( 'PeerAddr' => "localhost",
                    'PeerPort' => $T_PORT,
                       'Proto' => 'tcp')
    or die "Second: Can't create socket to Third($!)\n";

if($name eq $match)
        {
...
            
            print $t_socket "$match\n";
        }

while(my $third = $t_socket->accept)
        {
...
                }
            }    
        }