The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use BeerDB;
use Maypole::PSGI;

my $app = Maypole::PSGI->new('BeerDB');
my $handler = sub { $app->run(@_) };