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