Select Code to Download

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

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

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