my @socket;
for ($counter = 0; $counter < @remote_port; ++$counter) {
        $socket[$counter] = IO::Socket::INET->new(PeerPort  => $remote_port[$counter]