Select Code to Download

<ncp_directory op="ADD" ipol="0" iprs="0" uppol="0" upprs="0" upol="0"
+ uprs="0" vpol="1" vnipol="1" rpol="1" user_specific="0" ntperm="0" n
+ame="$dir1" flags="" lm="129232888600305382" cr="129232888600305382" 
+>
    <ncp_directory op="ADD" ipol="0" iprs="0" uppol="0" upprs="0" upol
+="0" uprs="0" vpol="1" vnipol="1" rpol="1" user_specific="0" ntperm="
+0" name="CutePDFWriter" flags="" lm="129232886309260678" cr="12923271
+1066448490" >
...
        </ncp_directory>
        <ncp_file op="ADD" ipol="0" iprs="0" uppol="0" upprs="0" upol=
+"0" uprs="0" vpol="1" vnipol="1" rpol="1" name="GSSetup.exe" length="
+122880" md5="E61K8P45E8D81x3T3E47C8QIP0U" flags="a" lm="1277517870000
+00000" cr="129232870612045954" gac_register_op="SAME" />
      </ncp_directory>

use XML::XPath;

...
    print $ncptype->find('ncp_file/@md5'), " ", $ncptype->find('ncp_fi
+le/@name'), "\n";
    print "\n";
}