You declare your CGI (well, one of them) outside your handler and your handler has a nested named sub. Nesting named subs typical doesn’t work the way you think. Instead of trying to untangle it I would just recycle your CGI script verbatim and change the psgi code to look like this (CGI::Compile and CGI::Emulate::PSGI).

  my $sub = CGI::Compile->compile("/path/to/YOUR-SCRIPT.cgi");
  my $app = CGI::Emulate::PSGI->handler($sub);
[download]