#!/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();