#!/usr/bin/perl -w
use IO::Socket;
use strict;
my $remote_host='bt1svmi6';
my$remote_port=29000;
my $socket = IO::Socket::INET->new(PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto=> "tcp",
Type=> SOCK_STREAM)
or die "Couldn't connect to $remote_host:$remote_port : $@\n";
#$wantToSpeak=0;
# ... do something with the socket
my $lig="Need for Diameter!\n";
print $socket $lig;

my $answer = <$socket>;
# and terminate the connection when we're done
print "I have the response\n";
close($socket);
chomp ($answer);
print $answer;
$answer=unpack("H*",$answer);