for my $attr ($node->getAttributes) {
        print $attr->getName,"\t";
        print $attr->getNodeValue,"\n";
    }