Select Code to Download

use strict;
use warnings;
...
for my $node ( $xpc->findnodes('//p:request/*/p:action') ) {
    print $node->textContent(), "\n";
}

START
STOP
GET_INFO

use strict;
use warnings;
...
        print $action_node->textContent(), "\n";
    }
}