cgi - PSGI で変数を渡す

Question

PSGI に変換したい CGI スクリプトがあります。結果は次のとおりです。

use CGI::Emulate::PSGI;
use strict;
use warnings;
use CGI qw(:cgi-lib :standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

my $q = new CGI;

my @keys = param();

my $state = "";
if(scalar @keys > 0){
    $state = $keys[0];
}

my $app = CGI::Emulate::PSGI->handler(sub {
    @keys = $q->param();
    print $q->header;
    print "<center>";
    print $q->h1('Some title');
    print "</center>";
    print $q->start_html(-title => 'Some title');
    print $keys[0];
    home();
    sub home{
        print "<center>";
        print $q->h3('Pick an option.');
        print $q->end_form;
        print "</center>";
        print "<center>";
        my $q0 = new CGI;
        print $q0->start_form(
            -name    => 'some_button',
            -method  => 'POST',
            -enctype => &CGI::URL_ENCODED,
        );
        print $q0->submit(
            -name     => 'click_me',
            -value    => 'Do something',
        );
        print $q0->end_form;
        print "</center>";
    }
    print $q->end_form;
});

「何かをする」をクリックした後、同じページに戻りますが (明らかに)、「click_me」と表示されます。これは CGI では機能しましたが、何らかの理由で PSGI はこの変数を渡しません。上記で定義された他の変数を出力できます。だから私の @keys = param(); 多くのことをしていないようです。