use strict;
use Plack::App::Directory();
use Plack::Middleware::AccessLog();
use Plack::Middleware::ConditionalGET();

open my $access_log_fh, '>>', 'access_log' or die $!;
my $app = Plack::App::Directory->new( root => '.' )->to_app;
$app = Plack::Middleware::AccessLog->wrap( $app, format => 'combined', logger => sub { syswrite $access_log_fh, $_[ 0 ]; }, );
$app = Plack::Middleware::ConditionalGET->wrap( $app );
$app;