Select Code to Download

#!/usr/bin/perl
use warnings;
...
        print $reader->copyCurrentNode(1)->textContent, "\n";
    }
}

stream :f 'file.xml' :F '/dev/null'
    select elt {
...
        echo (.) ;

    } ;