Select Code to Download

use IO::Socket;
my $sock = new IO::Socket::INET (
...

  }
close($sock);

use IO::Socket;
my $sock = new IO::Socket::INET (
...

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