#! perl -w use strict; use FindBin; use lib "$FindBin::Bin/../lib"; use lib "$FindBin::Bin/../../lib"; use Dancer; use Plack::Builder; use Example; builder { sub { my $env = shift; my $request = Dancer::Request->new(env => $env); Dancer->dance($request); } };