HTTP::Server::Brick 

my $server = HTTP::Server::Brick->new(
    port => 8888,
    fork => 1,
);

my $handler = sub {
    my ( $request, $response ) = @_;
    ref $request eq 'HTTP::Request';
    ref $response eq 'HTTP::Response';
    $req->header('Content-type', 'text/plain');
    $req->add_content('Hello world');
    return 1;
};

$server->mount( '/' => { handler => $handler, wildcard => 1 } );
$server->mount( '/static' => { path => $FindBin . '/static' } );