# copy & paste to a file called searchmods.cgi

use warnings;
use strict;
use CGI qw(header param); 
use HTML::Perlinfo::Modules;

print header;
my $qry = param('qry') || "";

if ($qry) {


my $m = HTML::Perlinfo::Modules->new();
my $module = $m->print_modules( show_only => qr/$qry/i );

($module) ? print $module: print 'No such modules found!';

}

print <<EOD;
Module search:
<form action="searchmods.cgi" method="post">
<input type="text" name="qry" value="$qry">
<input type=submit name=submit value=submit>
</form>
EOD