#!/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";