Select Code to Download

    # parse the message (executed within eval so parsing errors are no
+n-fatal)
    eval {
        $parsed_xml = XMLin(
...
    $queue_name = $parsed_xml->{descriptor}->{inputQueue};
    &log_it($INFO, "inputQueue is $queue_name", $log_file);
    print Dumper($parsed_xml);

         'descriptor' => [
                            {
...
                                      ]
                      }
                    ]