my ($form) = $xpc->findnodes(
    '/plm:PLMXML/plm:Form[subClass="Part Revision Master"]'
)
    or die("Can't find Part Revision Master form\n");

print($form->getAttribute('id'), "\n");  # id24