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

##</code><code>##

print $socket[$counter] "sp100\r";

##</code><code>##

print($socket[$counter], "sp100\r");