local $SIG{PIPE} = 'IGNORE';
    open PAGER, '|'.($ENV{PAGER} || 'less')
      or die "Can't spawn pager: $!\n";
    while (something) {
        print PAGER something_else;
    }
    close PAGER;

##</code><code>##

    select PAGER;
    $| = 1;
    while (something) {
        print something_else
          or last;
    }