If a .psgi file and a .cgi file use the same .pm that happens to have an exit in it, CGI::Compile won't catch the exit.

broken.psgi

#!/usr/bin/env perl
use common::sense;
use Plack::App::CGIBin;

warn "curl http://127.0.0.1:5000/problem.cgi\n";

# If both the .psgi file and a .cgi file uses
# a module with an exit statement in it, CGI::Compile's fake exit
# doesn't get called.
# 
# Comment out the following line to make the problem go away.
use Problem;

my $cgi_bin = Plack::App::CGIBin->new(root => '.')->to_app;

problem.cgi

#!/usr/bin/env perl
use Problem;
use CGI;
my $q = CGI->new;
print $q->header;
Problem::main;

Problem.pm

package Problem;

sub main {
    print "The following exit does not get caught.\n";
    exit;
}

1;