Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<policy name="Cur_policy" version="3.2.1">
...
    </Rule>
  </policyrules>
</policy>

<?xml version="1.0" encoding="UTF-8"?>
<policy name="Cur_policy" version="3.2.1">
...
    <dest addr="any" destport="80"/>
  </Rule>
</policy>

#!/usr/bin/perl

...

   $elt->set_att( 'new_attr' => 'dummyValue' );
}