mirror of
https://github.com/clearlinux/uwsgi.git
synced 2026-08-28 17:55:39 +00:00
roberto@sirius
12 lines
212 B
Perl
12 lines
212 B
Perl
use strict;
|
|
use warnings;
|
|
|
|
my $app = sub {
|
|
my $env = shift;
|
|
return [
|
|
'200',
|
|
[ 'Content-Type' => 'text/plain' ],
|
|
[ "Hello World\r\n", $env->{'REQUEST_URI'} ],
|
|
];
|
|
};
|