Select Code to Download

   $parser = XML::LibXML->new();
   $doc = $parser->parse_file( $xmlfilename );

    $p = XML:LibXML->new();
    local $/='</order>';
...
         }
         process_orders($doc);
     }