#################################
#!/usr/bin/perl -w

use strict;					# declare the info before use

#################################
# packages
################################

use IO::Socket::SSL;					# TCP/IP sockets
use XML::simple;
##################
# parameter declaration
##################
my $refXML;
my $tempXML;
my $host	= '192.168.1.15';
my $port	= 12431;			# selected-Port
my $uname	= "foobar";
my $pw		= "foobarPW";
my $protoVer	= "31";				# Protocol Version

my $sock = IO::Socket::SSL->new("$host:$port");

#########################
# main procedures
# output
##########################

##################################
# commands
system("clear");			# refresh the console

###############################
print "Sandbox Environment\n";
$sock->print(qq{<Open seq="150" protocolVersion=$protoVer username="$uname" password="$pw"/>\0});
$tmpXML=print<$sock>;                   # Zwischenspeichern
$refXML=XMLin($tmpXML);                 # in Variable speichern
exit (0);