#!/usr/bin/perl -w use CGI; use CGI::Carp qw(fatalsToBrowser); require "config.search.pl"; my $cgi = new CGI; print $cgi->header(); print < START print <

BODY print < FOOTER