sub client_socket_create()
  {
      my $socket = new IO::Socket::INET (
                PeerHost => 'ltsbml02.aus.stglabs.ibm.com',
                PeerPort => 7777,
                Proto => 'tcp',
                );
                print "$socket \n";
return $socket;
}