Select Code to Download

use warnings;
use IO::Socket;
...
print $_;
}
close($sock);

use warnings;
use IO::Socket;
...

print $sock "Hello there!\n";
close($sock);