use IO::Socket::INET;
use strict;
use Config::Tiny;
use Config::Random;
my ($DATA,$text,$msg, $array1);
my @array;

open TESTCASE, "imp2.txt" or die $!;
        while(<TESTCASE>)
                {
                 $array1 = $_;
                 chomp $array1;
                 $array[$incre]= $array1;
                 $incre++;
                 }

open CONFIGFILE, "imp1.txt" or die $!;
{
    local $/;
    $/ = undef;
    $DATA=<CONFIGFILE>;
}
my $Config = Config::ACTI->new();
$Config = Config::ACTI->read_string( $DATA );
$s = $Config->{_};

my $method= <<END;
REGISTER sip: 36.212.176.07 SIP/2.0\r
Via: SIP/2.0/UDP 36.212.176.90:5060; branch= z9hg4bk340\r
To: sanjay<sip:userA@36.212.176.90>\r
From:sanjay<sip:userA@36.212.176.90>;tag= abcd1250\r
Max-Forwards: 70\r
Call-ID: abchjhg1560@36.212.176.90\r
CSeq: 1 REGISTER\r
Contact:sanjay<sip:userA@36.212.176.90>; expires=7200\r
Content-Length:0\r
\r
END

 my $MySocket=new IO::Socket::INET->new(
                         LocalAddr=>$s->{Local_IP},
                         LocalPort=>$s->{LocalPort},
                        PeerPort=>$s->{RemotePort},
                        Proto=>$s->{Transport},
                        PeerAddr=>$s->{Remote_IP}
                 );
        $MySocket or die "no socket :$!";

print "\nClient Started: Ready For Packet To Send:\n";
my $incre = 0;
COND:for(;;)
{
    
 last if $array[$incr] eq ''; 
 if ($array[$incr] eq "[SEND]")
   {
      $incr++;
     if ($array[$incr] eq ("REGISTER" || "INVITE" || "ACK" || "BYE" ||
+ "OPTION" || "CANCEL"))
     {
         $incr++;
         goto OUTER;
     }
     else 
     {
         print "Bad Request :$array[$incr]";
          exit 1;
     }
  }
     
elsif ($array[$incr] eq "[RECV]")
   {
       $incr++;
       
    if($array[$incr] == (100 || 200 || 300 || 400))
     {
         
         $incr++;
         goto INNER;
     }
     
     else 
     {
         print "Bad Response name:$array[$incr]";
         exit 1;
     } 
  }
 
 else
  {
     print "Bare word found:";
     exit 1;
  }
}
         
OUTER:for(;;)
{

      my  $msg=$method;
        
     print "\nSending message:$msg";
     $MySocket->send($msg);
      goto COND;
  }

INNER:for(;;)
  {
print "Waiting for Response:\n";
$MySocket->recv ($text,1000);#///Recv
 print "\nReceived message From:$text";
 goto COND;
}
[download]