gistfile1.pl

use Plack::Builder;

my $access_log = ...;

builder {
    open my $logfh, ">>", $access_log
        or die "Couldn't open $access_log: $!";

    enable "AccessLog::Timed", 
        format => "%v %h %l %u %t \"%r\" %>s %b %D",
        logger => sub { $logfh->print( @_ ) };

    $app;
}