Select Code to Download

<!-------soc_foo.xml........!>
<?xml version="1.0" encoding="UTF-8"?>
...
      <------more info-------->
</shipto>
</shiporder>

<!-------new.xml........!>
<?xml version="1.0" encoding="UTF-8"?>
...
      <------more info-------->
</shipto>
</shiporder>

#!/usr/bin/perl
use warnings;
...

    return;
}