projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b0ba13551f0aac739e525d7a04726b54564fb83b
[gitmo/Mouse.git]
/
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
}