Help for this page

Select Code to Download


  1. or download this
    - uri_unescape($ENV{QUERY_STRING}) =~ /^([\w\s:-]*)$/
+ uri_unescape($ENV{QUERY_STRING}) =~ /^([\w :-]+)\z/

- exec "perldoc -u $1|pod2html --header --title='$1'";
+ exec "perldoc -u $1|pod2html --header --title='$1' 2>/dev/null";
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
close DOC;

sub error { print "Error: ", shift; exit };