################################# #!/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{\0}); $tmpXML=print<$sock>; # Zwischenspeichern $refXML=XMLin($tmpXML); # in Variable speichern exit (0);