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'};

<?xml version="1.0"?>
<cas-regression version="1.0" timestamp="2005-03-07 15:33:45">
  <testcase name="read infofields contract" file="infofieldscontr_read.cmd">
    <print name="infofield 6" command="INFOFIELDSCONTR.READ-ACK" position="8" />
  </testcase>
  <testcase name="create customer" file="cust+tickler+fee+info_write.cmd">
    <print name="customer_id" command="COMMIT_CUSTOMER-ACK" position="3" />
    <print name="custcode" command="COMMIT_CUSTOMER-ACK" position="2" />
    <replace value="10" command="CUSTOMER.WRITE" commandnr="0" position="1" />
    <print name="creditlimit" command="CUSTOMER.WRITE" position="38" />
  </testcase>
</cas-regression>

#my %testcase_xml;