--- /dev/null
+--- maypole.orig/lib/CGI/Maypole.pm
++++ maypole/lib/CGI/Maypole.pm
+@@ -57,7 +57,17 @@
+ sub run
+ {
+ my $self = shift;
+- return $self->handler;
++ my $status = $self->handler;
++ if ($status != OK) {
++ print <<EOT;
++Status: 500 Maypole application error
++Content-Type: text/html
++
++<title>Maypole application error</h1>
++<h1>Maypole application error</h1>
++EOT
++ }
++ return $status;
+ }
+
+ =head1 Implementation