Select Code to Download

    local $SIG{PIPE} = 'IGNORE';
    open PAGER, '|'.($ENV{PAGER} || 'less')
...
        print PAGER something_else;
    }
    close PAGER;

    select PAGER;
    $| = 1;
...
        print something_else
          or last;
    }