Select Code to Download

    # We want the true type of blessed objects like XML::DOM::Document
    my $true_type;
...
        $true_type =~ s/.*=(\w*).*/$1/;
        }
    print ref($value)," is really an $true_type\n";

XML::DOM::Document is really an ARRAY