use XML::Simple;
use strict;

my $xml = new XML::Simple();
$data = $xml->XMLin("file.xml", ForceArray => [qw( node internal )],KeyA    ttr=> [qw( status )],);
print Dumper($data);

my $status=$data->status->{'state'};
if ($status eq "active"){
   print "active"
}