{ my $cgi = $_->{'cgi'}; my $mod = $cgi->param('module'); my $module = ''; if($mod =~ /^(.*)$/) { $module = $1; } require $module; my $file = $INC{$module}; $file =~ s/\.pm$/\.pod/; if(-f $file) { `cd /tmp; /usr/bin/pod2html $file`; } else { "Error: Missing docs\n" . "

Error: } }