#!/usr/bin/perl -w

use strict;
use IO::Select;
use IO::Socket::UNIX qw( SOCK_DGRAM SOCK_STREAM SOMAXCONN );
use Data::Dumper;

my $socket_path = '/var/run/callcontrol/socket';
unlink($socket_path);

my $listner = IO::Socket::UNIX->new(
   Type   => SOCK_STREAM,
   Local  => $socket_path,
   Listen => SOMAXCONN,
)
   or die("Can't create server socket: $!\n");

my $sel = new IO::Select( $listner );


while(my @ready = $sel->can_read) {
    foreach my $fh (@ready) {
        if($fh == $listner) {
            # Create a new socket
            my $newConn = $listner->accept;
            $sel->add($newConn);
            print qq|## Client Connected!\n|;
        }
        else
        {
            my $res = <$fh>;
            if(length($res))
            {
            print $res ."\n";
                print $fh qq|Ok\r\n|;
            }
        }
    }
}