自身の出力(STDOUT)をページャに渡す

STDOUT をページャへリダイレクトする。

$pager = "/bin/more";
open(STDOUT, "| $pager") or die;

# 処理

close(STDOUT);
exit;

STDOUT を close するのを忘れないこと!

ページャが幾つかあるかもしれないときは、File::Which あたりで使えるのを探す

use File::Which;
$pager = which('lv') || which('less') || which('more');