Improve he-profile.pl

[gitmo/Mouse.git] / author / use-he.pl

diff --git a/author/use-he.pl b/author/use-he.pl
new file mode 100644 (file)
index 0000000..1aa3b48
--- /dev/null
+++ b/author/use-he.pl
@@ -0,0 +1,19 @@
+#!perl -w
+
+use strict;
+use HTTP::Engine;
+
+my $engine = HTTP::Engine->new(
+    interface       => {
+        module => 'CGI',
+        request_handler => \&handle_request,
+    },
+);
+
+$engine->run();
+
+sub handle_request{
+    my($request) = @_;
+
+    return HTTP::Engine::Response->new(body => "Hello, world!\n");
+}