use IO::Socket::INET;
use Switch;
use strict;



open CONFIGFILE, "config.txt" or die $!;
{
    local $/;
    $/ = undef;
    $DATA=<CONFIGFILE>;
}

my $Config = ACTI::Tiny->new();
$Config = ACTI::Tiny->read_string( $DATA );
$s = $Config->{_};

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

print "\nPlease wait...\n";

sub sendMessage
          {
	                
                    my  $msg=$request;
                    $MySocket->send($msg);#Send
                    write_file($output_file,$log_meg,"Sending message:\n", $msg);
           }
sub recvMessage
            {
	           
 	   	$MySocket->recv ($text,1000);#Recv
            write_file($output_file,{append=>1},"Received Message:\n", $text);

            }