package DebugApp;
require CGI::Application::Plugin::LogDispatch;
1

##</code><code>##

#!/usr/bin/perl -wT

# amend @INC without taint
use FindBin;
my $path = $FindBin::RealBin;
$path =~ /^(.+)$/;
$path = $1;
unshift @INC, $path;

require DebugApp;

##</code><code>##

package DebugApp;
use Log::Dispatch::Output;
use base qw( Log::Dispatch::Output );
1