Select Code to Download

#!/usr/bin/perl

...
    }
    $elt->replace_with($new_elt) if $new_elt;
}

<?xml version="1.0" encoding="UTF-8"?>
<harvest>
...
</metadata>
</record>
</harvest>