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