use XML::Simple;
use strict;
my $xml = new XML::Simple;
my $data = $xml->XMLin('cmdb_coh.xml');
print $data->{Form}->{ResourceString}->[1]->{value};