Select Code to Download

#!/usr/bin/perl
use warnings;
...
my ($value) = $root->findnodes('parameters/key/@value[.="500"]');
$value->setValue(501);
print $root->serialize;

open file.xml ;
set /root/parameters/key/@value[.="500"] 501 ;
save :b ;