Select Code to Download

$VAR1 = {
   'client_system' => {
...
 'version' => '2.1',
 'buildNumber' => 'Version 1.3'
};

#!/usr/bin/perl
use strict;
...
print $doc->{client_system}->{$key} . "\n";
print $doc->{client_system}->{$key}->{'business_area'} ? ;
}

'client_system' => {
    'Customer Care' => {
...
                                           'low-199' => {
                                           'Others' => {
                                           '200-499' => {