Select Code to Download

use strict;
use warnings;
...
}

print Dumper $result;

$VAR1 = [
          {
...
            'cname' => 'Smart Parking'
          }
        ];