author/use-he.pl

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