12345678 use CGI::Application::PSGI;use MyApp;my $handler = sub { my $env = shift; my $app = MyApp->new({ QUERY => CGI::PSGI->new($env) }); CGI::Application::PSGI->run($app);};
use CGI::Application::PSGI;
use MyApp;
my $handler = sub {
my $env = shift;
my $app = MyApp->new({ QUERY => CGI::PSGI->new($env) });
CGI::Application::PSGI->run($app);
};