Select Code to Download

use IO::Socket::INET;
# auto-flush on socket
...
}
 
$socket->close();

use IO::Socket::INET;

...
print "received response: $response\n";
 
$socket->close();