#!/usr/bin/perl --
use strict; use warnings;
use Plack::Builder;
use Plack::Runner;
use Plack::App::Directory;
use Plack::App::CGIBin;
my $app = builder {
    mount "/" => Plack::App::Directory->new({
        root => 'path/to/public_html',
    })->to_app;
    mount "/cgi-bin" => Plack::App::CGIBin->new({
        root => 'path/to/cgi-bin',
    })->to_app;
};
#~ $app = builder {
#~     enable 'Debug' => panels => [ qw(DBITrace Timer) ];
#~     $app;
#~ };
my $runner = Plack::Runner->new;
$runner->parse_options( qw' --host 127.0.0.1 --port 80 ');
$runner->run($app);