Select Code to Download

use Data::Dumper qw();

print Data::Dumper->new([$ResponseXML],['ResponseXML'])->Useqq(1)->Dum
+p(),"\n";

$ResponseXML = {
                 "Other" => [
...
                            ],
                 "filename" => " /opt/XML/otherfile.xml\n"
               };