Select Code to Download

for $foo ('a'..'c') {
    open FH,'|-', 'cat -';
...
 5
 1
 2

for $foo ('a'..'c') {
    open FH,'|-', 'cat -';
...
=c=
 1
 2

    if (not_implicit) {
        IoLINES(io) = 0;
        IoPAGE(io) = 0;
        IoLINES_LEFT(io) = IoPAGE_LEN(io);
    }