#!/quovadx/qdx5.1/integrator/bin/perl -w
use IO::Socket;
use strict;
$/ = "\x1c\x0d";
my $sockout;
$sockout = new IO::Socket::INET (
               PeerAddr => "eng1tst",
               PeerPort => "9903",
               Proto => 'tcp',
               Timeout => 10
              );
die "Could not create socket: $!\n" unless $sockout;
while (1) {
       my $msgs = `/hci/qc -IMILTP.CLHADT.RADTG`;
       my @msgs = split(/\n/,$msgs);
       my $msg;
       foreach $msg (@msgs) {
               print $sockout "$msg";
               my $rply = <$sockout>;
               print STDOUT "$rply\n";
       }
       sleep 10;
}
close($sockout);