my $text = '{"a":"x","b":true}'; 
    my $result = decode_json($text);
    my $rec = XMLout( $result, RootName => 'root', SuppressEmpty => 1);