add hello-world.cgi example as file

diff --git a/examples/hello-world/hello-world.cgi b/examples/hello-world/hello-world.cgi
new file mode 100644 (file)
index 0000000..b24dc02
--- /dev/null
+++ b/examples/hello-world/hello-world.cgi
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use Web::Simple 'HelloWorld';
+
+{
+  package HelloWorld;
+
+  dispatch {
+    sub (GET) {
+      [ 200, [ 'Content-type', 'text/plain' ], [ 'Hello world!' ] ]
+    },
+    sub () {
+      [ 405, [ 'Content-type', 'text/plain' ], [ 'Method not allowed' ] ]
+    }
+  };
+}
+
+HelloWorld->run_if_script;