Select Code to Download

use IO::Socket;
 my $sock = new IO::Socket::INET (
                                  LocalHost => 'localhost',
...
                print $_;
       }
    close($sock);

 use IO::Socket;
 my $sock = new IO::Socket::INET (
                                  PeerAddr => 'localhost',
...
 my @val = qw(Hello there! this is socket);
 print $sock @val;
 close($sock);