Select Code to Download

use strict;
use warnings;
...
    }
    
print Dumper @records;

C:\SLB\Dashboard\Perl>perl testperl.pl
$VAR1 = {
          'appid' => '212'
        };

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<application_list>
...
<application id="975" ></application>
</application_list>