running CGI app run_request with PSGI interface

gistfile1.pl

sub to_psgi_app {
	require CGI::Emulate::PSGI;

	our $CGI = 'CGI';
	our $first_request = 1;

	my $app = CGI::Emulate::PSGI->handler(sub {
		CGI::initialize_globals();
		our $cgi = CGI->new();

		run_request();

		$first_request = 0;
	});
	return $app;
}