open STDIN, "-|", ...;
exec @pager;

##</code><code>##

$_ = qq{"$_"} for @ARGV;

##</code><code>##

use File::Which;
my $pager = which("less") || which("more") || die "no pager";