XML not reading fully during IO::Socket receive

Select or download this

$telemetry = 1;
                    print "@@@ started @@@";
                    print "*** Recv UA ***";
...
                    print "Reading in XML";
                    my $uasdata = $xs->XMLin($test);
                    print "XML Loaded!";

Select or download this

n="1.0" encoding="UTF-8" standalone="no" ?>

Select or download this
<?xml version="1.0" encoding="UTF-8" standalone="no" ?>

Select Code to Download