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);
                }

}