#!/usr/bin/perl
my $_app = do { PWNEDCODE};
my $_env = {
  "HTTP_HOST"        => "localhost",
  "PATH_INFO"        => "/",
  "psgi.errors"      => \*main::STDERR,
  "psgi.input"       => "",
  "psgi.nonblocking" => "",
  "psgi.run_once"    => 1,
  "psgi.streaming"   => "",
  "psgi.url_scheme"  => "http",
  "psgi.version"     => [1, 1],
  "psgix.io"         => undef,
  "REMOTE_ADDR"      => "127.0.0.1",
  "REQUEST_METHOD"   => "GET",
  "SCRIPT_NAME"      => "",
  "SERVER_NAME"      => "localhost",
  "SERVER_PORT"      => 5000,
  "sunaba.app_id"    => "vqfog7lx8rgg6oc-qy8-aq",
};
my $_input = $_env->{'psgi.input'};
$_env->{'psgi.input'}  = do { open my $io, '<', \$_input; $io };
$_env->{'psgi.errors'} = \*STDOUT;
use Storable;
use MIME::Base64;
print STDOUT encode_base64(Storable::nfreeze($_app->($_env)));