Select Code to Download

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

if($name eq $match)
        {    
...
            
            last;
        }

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

while(my $handle = $socket->accept)
{
...
      #do something with $_
  }
}