use XML::LibXML;
my $xml = XML::LibXML->new->parse_file('example.xml');

for my $status ($xml->findnodes('//Status')) {
    print join( ':',
        $status->findvalue('parent::Program/@NAME'),
        $status->findvalue('StatusDesc'),
        $status->findvalue('StatusDate'),
        $status->findvalue('StatusEndDate') ), "\n";
}