Select Code to Download

my $clientSocket = new IO::Socket::INET( 
        PeerAddr => $ipSend, 
...
print $clientSocket "HELLO 1.0";  
sleep(3); 
close $clientSocket;

my $servSocket = IO::Socket::INET->new( 
        #LocalHost => 'localhost', 
...
        last;
    }
}