my $xs = XML::Simple->new();

$tmpXML = join('',$socket->getlines);
$refXML = $xs->XMLin($tmpXML, KeepRoot => 1);