my $pager= $ENV{PAGER} || "more";
open STDOUT, "| $pager"
  or  warn "Not paging STDOUT: $!\n";