use IO::Socket;
 my $sock = new IO::Socket::INET (
                                  LocalHost => 'localhost',
                                  LocalPort => '7890',
                                  Proto => 'tcp',
                                  Listen => 1,
                                  Reuse => 1,
                                 );
 die "Could not create socket: $!\n" unless $sock;

my $new_sock = $sock->accept();
      while(<$new_sock>) {
                print $_;
       }
    close($sock);

##</code><code>##

 use IO::Socket;
 my $sock = new IO::Socket::INET (
                                  PeerAddr => 'localhost',
                                  PeerPort => '7890',
                                  Proto => 'tcp',
                                 );
 die "Could not create socket: $!\n" unless $sock;
 my @val = qw(Hello there! this is socket);
 print $sock @val;
 close($sock);