gistfile1.txt

use strict;

use Plack::Builder;
use File::Basename qw(dirname);
use Cwd qw(abs_path);

my $handler = sub {
    return [ 404, [ "Content-Type" => "text/plain" ], [ "Not Found" ] ];
};

builder {
    dispatch "/" => builder {
        return [ 200, [ "Content-Type" => "text/plain", "Content-Length" => 11 ], [ "Hello World" ] ];
    };
    dispatch "/static" => builder {
        add "Plack::Middleware::Static",
            path => qr/./, root => dirname(__FILE__);
        $handler;
    };
};