run otrs using Plack

gistfile1.pl

use Plack::App::CGIBin;
use Plack::Builder;
use HTTP::Server::PSGI;
use Plack::App::File;
use lib "D:/otrs";
use lib "D:/otrs/Kernel/cpan-lib";

my $server = HTTP::Server::PSGI->new(
    host    => "127.0.0.1",
    port    => 9091,
    timeout => 120,
);

my $static = Plack::App::File->new(
    { root => "otrs/var/httpd/htdocs" }
    )->to_app;


my $cgi = Plack::App::CGIBin->new(
    root    => "otrs/bin/cgi-bin"
    )->to_app;

my $app = builder {
    mount "/cgi-bin" => $cgi;
    mount "/otrs-web" => $static;
};


$server->run($app);