Select Code to Download

use IO::Socket::INET ();

...
   or die "Unable to create socket: $!\n";

print while <$sock>;