use IO::Socket::INET;
use IO::Select;

# auto-flush on socket
$| = 1;
my $server_ip;
my $server_port;
#my $r,$w;

@ARGV == 2 or die "IP and Portnumber needed";
($server_ip,$server_port)=@ARGV;

# create a connecting socket
my $socket = new IO::Socket::INET (
    PeerHost => $server_ip,
    PeerPort => $server_port,
    Proto => 'tcp',
);
die "cannot connect to the server $!\n" unless $socket;

my $read_handler = IO::Select->new();

$read_handler->add($socket);
my $send_buffer;
while(1)
{
         @sockets_ready =$read_handler->can_read();
         foreach my $read(@sockets_ready)
         {
                my $buffer;
                $buffer = <$socket>;
                print "$buffer\n";

                }
         @write_ready=$read_handler->can_write();
                foreach my $message(@write_ready)
                {
            my $send_buffer=<STDIN>;
                $message->send($send_buffer);
                }

}

 
##</code><code>##

#!/usr/bin/perl -w
use strict;
use warnings;
use IO::Socket;
use IO::Select;

# auto-flush on socket
$| = 1;

my $server_ip;
my $server_port;


@ARGV == 2 or die "IP and Portnumber needed";
($server_ip,$server_port)=@ARGV;


# creating a listening socket
my $tcp_socket = new IO::Socket::INET(
    LocalHost => $server_ip,
    LocalPort => $server_port,
    Proto => 'tcp',
    Listen => 5,
    Reuse => 1
);
die "cannot create socket $!\n" unless $tcp_socket;
print "server waiting for client connection on port $server_port\n";

#Create readhandlers with select
my $read_select = IO::Select->new();

$read_select->add($tcp_socket);

#version send to server
my $Version ="Hello <VERSION>\n";

#hash for client
my %clients;
while(1)
{
    my $new_readable;
    my $nick;

    ($new_readable)=IO::Select->select($read_select,undef,undef,0);
    foreach my $read(@$new_readable)
    {
      if($read==$tcp_socket)
      {
       my $new_connection = $read->accept();
        $new_connection->send($Version);
        $read_select->add($new_connection);
      }
      else
      { my $buf;
        my $msg;
        $buf=<$read>;
        if($buf)
        {
            my @sockets = $read_select->can_write(); #returns  a array of handl$
            foreach my $sck(@sockets)
            {

                            $sck->send("$buf\n");

            }
        }
        else
        {
            $read_select->remove($read);

        }

        }

        }
    }


$tcp_socket->close();