#!/usr/bin/perl -- 

use strict;
use warnings;


use XML::Simple;
use Data::Dumper;

print Dumper( XMLin(<<'__XML__'));
<?xml version = "1.0"?>
<response>

<custid>101010101</custid>
    <status>success</status>
<responsecode>11</responsecode>
<kf></kf>
<cn>1111222233334444555</cn>
<neta>7.00</neta>
<prid>X111111111111111</prid>
<ano>22222222</ano>
<trxid>33333333</trxid>
<description>Transfer Completed</description>
</response>
__XML__

__END__
$VAR1 = {
          'kf' => {},
          'cn' => '1111222233334444555',
          'status' => 'success',
          'custid' => '101010101',
          'neta' => '7.00',
          'description' => 'Transfer Completed',
          'trxid' => '33333333',
          'ano' => '22222222',
          'responsecode' => '11',
          'prid' => 'X111111111111111'
        };
[download]