1 files changed, 22 insertions, 0 deletions
diff --git a/app.psgi b/app.psgi
new file mode 100755
index 0000000..f16dfce
--- /dev/null
+++ b/app.psgi
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use FindBin qw($Bin);
+use Devel::StackTrace;
+
+BEGIN {
+    $SIG{__DIE__} = sub {
+        return if $^S;
+
+        my $error = shift;
+        my $trace = Devel::StackTrace->new;
+        print STDERR "\nError: $error",
+              "Stack Trace:\n",
+              $trace->as_string, "\n";
+    };
+}
+
+$Bin = "$Bin/../bin/cgi-bin";
+do "$Bin/app.psgi";