#! /usr/local/bin/perl # PERL script # Searches the gifs directory for keywords. $HTDOCS="/usr/local/etc/httpd/htdocs/"; $GIFDIR="gifs"; $QUERY_STRING= $ENV{'QUERY_STRING'}; print "Content-type: text/html\n\n"; if ($QUERY_STRING) { print "
\n"; print "\n"; } } print "