Perldoc - No module specified!!

http://my.server.com/perldoc.pl?mod=DBI ##
##

#!C:\Perl\bin

use strict;
use CGI;

my $q = new CGI;
my $module = $q->param('mod');
if (not defined($module)) {
	print <
		Perldoc - No module specified!!
		
			


			
Perldoc Error - No module specified!!
		
		
END_HTML

	exit(1);
}

#################################################################

my $found = 0;
my $abs_filename = "";
foreach my $dir (@INC) {
   opendir(DH, $dir) or die "Can't open $dir: $!";
   while( defined (my $file = readdir DH) ) {
	   if ($file =~ /$module\.(pm|pod)/) {
		   $abs_filename = "$dir/$file";
		   $found = 1;
		   last;
	   }
   }
}

if ($found) {
	#print $q->header('text/html'), $q->start_html("test");
	#print $q->header('text/html');
	#print $q->h1(`pod2html $abs_filename`);
	print "Content-type: text/html\n\n";
	`pod2html $abs_filename`;
	#print `pod2html CGI`;
	#print $q->header('text/html'), $q->start_html("test");
	#print $q->h1("\$abs_filename=[$abs_filename]");
	#print $q->end_html;
	exit 0;
}
else {
	print <
		Perldoc - Module $module *NOT* found!!
		
			


			
Perldoc Error - module $module *NOT* found!!
		
		
END_HTML

	exit(1);
}