Select Code to Download

# $page and $section are parameters from the user that have been clean
+ed of 0 bytes and obvious control characters
  my $mantext = ''; my $status;
...
    else {exec('/usr/bin/man', $page);}
  }
# now reformat $mantext and display it.

  section=-P/usr/bin/whatever%20command%20I%20want&page=cat

# $page and $section are parameters from the user that have been clean
+ed of 0 bytes and obvious control characters
  my $mantext = ''; my $status;
...
    else {exec('/usr/bin/man', '--', $page);}
  }
# now reformat $mantext and display it.

  my $qpage = quotemeta($page);
  my $qsect = quotemeta($section || '');
  exec("/usr/bin/man $qsect $qpage");

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/