Select Code to Download

use IO::Socket::INET;
 use strict;
...
 
$socket->close();

use IO::Socket::INET;
 
...
 
$socket->close();

received response: ok