author/use-he.pl

   1 #!perl -w
   2
   3 use strict;
   4 require UNIVERSAL; # for profiling
   5 require HTTP::Engine;
   6
   7 my $engine = HTTP::Engine->new(
   8     interface       => {
   9         module => 'CGI',
  10         request_handler => \&handle_request,
  11     },
  12 );
  13
  14 $engine->run();
  15
  16 sub handle_request{
  17     my($request) = @_;
  18
  19     return HTTP::Engine::Response->new(body => "Hello, world!\n");
  20 }