Help for this page

Select Code to Download


  1. or download this
    open STDIN, "-|", ...;
exec @pager;
  2. or download this
    $_ = qq{"$_"} for @ARGV;
  3. or download this
    use File::Which;
my $pager = which("less") || which("more") || die "no pager";