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