#!/usr/bin/env perl # $Id$ use strict; use warnings; use File::Spec; use FindBin::Real; use Plack::Loader; my $app = Plack::Util::load_psgi(File::Spec->catfile(FindBin::Real::Bin(), 'app.psgi')); my $rv = Plack::Loader->load('CGI')->run($app); use Data::Dumper; warn Data::Dumper->Dump([{ 'app' => $app, 'rv' => $rv, }]);