open local(*STDOUT), '|-', $ENV{'PAGER'} or warn $!;