Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<shipment>
  <box>
...
    </packing>
  </box>
</shipment>

<?xml version="1.0" encoding="UTF-8"?>
<shipment>
  <slip _TYPE="produce">potato</slip>
...
  <slip _TYPE="produce">peach</slip>
  <slip _TYPE="produce">apple</slip>
</shipment>

#!/usr/bin/perl
use 5.020;
use strict;
...
    
    1;
}

<?xml version="1.0" encoding="UTF-8"?>
<shipment>
  <slip _TYPE="produce">potato</slip>
...
</shipment>

</shipment>