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;
}
##</code><code>##

sub client_main($)
{
 my $socket = @_;
print "$socket \n";
# some processing #
}