use warnings;
use XML::Simple;
use Data::Dumper;
use strict;

my %testcase_xml;
my $testcase_xml;

$testcase_xml = XMLin('./casout.xml',ForceArray=>1 , KeyAttr=>'testcase');

print "\n". Dumper \$testcase_xml;
print $testcase_xml->{'testcase'}->[0]->{'print'}->[0]->{'command'};