###################################
# Parameter
my $tmpXML = XML::Simple->new();
###################################
# programm
$tmpXML = join('',$socket->getlines);
$refXML = XMLin($tmpXML, KeepRoot => 1);