#!/Perl/bin/Perl -w
# W32 Agent

use IO::Socket::INET;

$ct=0;

for ( ;; ) {
$catapult=IO::Socket::INET->new(
  Proto=>"tcp",
  PeerAddr=>"localhost",
  PeerPort=>8888,
  #Timeout=>5
)
or die "Can't connect! DO SOMETHING!";
shutdown $catapult,0;

$sys_id=1;
$sysport=9000 + $sys_id;
++$ct;

print $catapult "$sys_id\n";
print "Send sys id of $sys_id\n";

sleep 1;
$data_port=IO::Socket::INET->new(
  Proto=>"tcp",
  PeerAddr=>"localhost",
  PeerPort=>$sysport,
  #Timeout=>5
)
or die "Can't connect data_port! DO SOMETHING!";
$msg="client1 data 12345\n";
$msglength=length($msg);

#for ($i;$i <= 10;$i++){
print $data_port $msg;
print "Sent data of length $msglength\n";
sysread($data_port,$servmsg,4096);
print "Server said length was $servmsg\n";
if ($servmsg == $msglength){
print "We have a match!\n";
} else {
print "************OUT OF SYNC*****************\n";
}
#}
print "Iteration number $ct\n";
close $data_port;
close $catapult;
if ( $ct == 50 ) { sleep 60;print "Sleeping\n"; }
}
# End Client