Select Code to Download

use strict; 
use warnings;
use IO::Socket;
...
print "\$buf = '$buf'"; 

$socket->close or warn $@;