Select Code to Download

#!/usr/bin/perl -w

...
    my @lats = map $_->getValue(),$kid1->findnodes('//datacolumn[name=
+"Latitude"]/item/@value');
    print @lats,"\n";
}

<?xml version="1.0"?>
<!DOCTYPE datatable>

...
   <item value="-93.3346"/>
   <item value="-92.8274"/>
  </datacolumn>