1 files changed, 0 insertions, 37 deletions
diff --git a/contrib/perl5/eg/cgi/tryit.cgi b/contrib/perl5/eg/cgi/tryit.cgi
deleted file mode 100644
index 83c620c..0000000
--- a/contrib/perl5/eg/cgi/tryit.cgi
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/local/bin/perl
-
-use CGI ':standard';
-
-print header;
-print start_html('A Simple Example'),
-    h1('A Simple Example'),
-    start_form,
-    "What's your name? ",textfield('name'),
-    p,
-    "What's the combination?",
-    p,
-    checkbox_group(-name=>'words',
-		   -values=>['eenie','meenie','minie','moe'],
-		   -defaults=>['eenie','minie']),
-    p,
-    "What's your favorite color? ",
-    popup_menu(-name=>'color',
-	       -values=>['red','green','blue','chartreuse']),
-    p,
-    submit,
-    end_form,
-    hr;
-
-if (param()) {
-    print 
-	"Your name is: ",em(param('name')),
-	p,
-	"The keywords are: ",em(join(", ",param('words'))),
-	p,
-	"Your favorite color is: ",em(param('color')),
-	hr;
-}
-print a({href=>'../cgi_docs.html'},'Go to the documentation');
-print end_html;
-
-