# parse the message (executed within eval so parsing errors are non-fatal) eval { $parsed_xml = XMLin( $message, forcearray => 1, keyattr => [] ); }; # if parsing errors were encountered, write the appropriate message to the log if ($@) { &stop_it($ERROR, $XMLERROR, "Parsing error encountered - $@", $log_file); } $queue_name = $parsed_xml->{descriptor}->{inputQueue}; &log_it($INFO, "inputQueue is $queue_name", $log_file); print Dumper($parsed_xml);