Select Code to Download

use strict;
use warnings;
...
        print "Debug: $output.\n";
    }

$VAR1 = {
          'xmlns' => 'http://xmlns.sony.net/d-cinema/tms-api/v1',
...
                                                                      
+                             'EventId' => [
                                                                      
+                                          '2015060200000563'
                                                                      
+                                        ],