All set now, thanks for the help!

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