#!/usr/bin/perl

use feature qw/say/;
use XML::LibXML qw();

my $xml = XML::LibXML->load_xml(location => 'output.xml');

for ($xml->findnodes('//APPLIANCE_LIST_OUTPUT/descendant::STATUS/text()')) {
    say;
}