use IO::Socket::SSL;					# TCP/IP sockets
use XML::Simple;						# basic operation in terms of XML
#####################
# XML Parameter
#####################
my $refXML;
my $tempXML;
my $XMLcontent = "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n";
###########################
my $host	= '192.168.1.15';
my $port	= 12431;			# selected-Port
my $uname	= "foobar";
my $pw		= "foobarPW";
my $protoVer	= "31";				# Protocol Version
my $timer       = 10;
my $seqid       = 911;
#####################################
my $socket  = IO::Socket::SSL->new(PeerAddr=>$host,PeerPort=>$port,Timeout=>$timer);
#######################################
$socket->print(qq{<Open seq="$seqid" protocolVersion=$protoVer username="$uname" password="$pw"/>\0});
##########################################
$tmpXML = join('',$socket->getlines);
$refXML = $tmpXML->XMLin($XMLcontent, KeepRoot => 1);