From 66f6eaff615a5536f6943894cc71841298664e29 Mon Sep 17 00:00:00 2001
From: Dan Buch <daniel.buch@gmail.com>
Date: Mon, 3 Jan 2011 17:32:50 -0500
Subject: [PATCH] simple CGI stuff

---
 web/html/cgi-bin/query.cgi | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 web/html/cgi-bin/query.cgi

diff --git a/web/html/cgi-bin/query.cgi b/web/html/cgi-bin/query.cgi
new file mode 100755
index 0000000..39f46b1
--- /dev/null
+++ b/web/html/cgi-bin/query.cgi
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use CGI;
+
+
+sub main {
+    my $query = CGI->new();
+    my $search = $query->param('q');
+
+    print $query->header();
+
+    print "You searched for: ", $query->escapeHTML($search);
+}
+
+
+main();
+
+1;
+
+__END__