Help for this page

Select Code to Download

Select or download this

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