#! /usr/bin/perl -w
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Pod::Html;
 
print header('text/html'),
    start_html('POD browser'),
    start_form,
        p('POD: ',
            textfield('pod'),
            submit,
        ),
    end_form,
    hr;

if (param())
{
    chdir '/tmp';   # write cache files in /tmp
    my $pod = param('pod');
    my $file = qx(perldoc -l $pod);
    pod2html $file;
}

print end_html;