Select Code to Download

<?xml version="1.0" encoding="utf-8"?>
<file Catid="0011" Date_added="20050910000000" HighPic="photo/location
+.jpg" HighPicHeight="123" HighPicSize="1122" HighPicWidth="123" Model
+="varchar model name" On_Market="0" Prod_ID="varchar id name" Product
+_I="111" Product_View="11223" Quality="qualitylevel" Supplier="x" Upd
+ated="20110713144032" path="required/path/to/other.doc"></file>

#!/usr/bin/perl
...
           KeyAttr => 1);
binmode STDOUT, ':encoding(utf8)';            
print Dumper($xml);