open PAGER, "| more";
for (1..1_000) {
    print {PAGER} "Line $_\n";
};