#!/usr/bin/perl
use IO::Socket;
$|=1;
$socket = new IO::Socket::INET (
                                  PeerAddr  => '$IP',
                                  PeerPort  =>  3575,
                                  Proto => 'tcp',
                               )
or die "Couldn't connect to Server\n";

while (1)
{
        $send_data = "CHK $ARGV[0]";
        print STDERR "\nSEND( TYPE q or Q to Quit):$send_data\n";
        if ($send_data ne 'q' and $send_data ne 'Q')
        {
                $socket->send($send_data);
                sleep(1);
                $socket->recv($recv_data1,1024);
                sleep(1);
                $socket->recv($recv_data2,10240);
                print "RECIEVED: $recv_data2\n";
                close $socket;
                last;
        }
        else
        {
            $socket->send($send_data);
            close $socket;
            last;
        }
}