#!/Perl/bin/perl

use strict;
use warnings;
use FindBin qw($Bin);
use CGI::Carp qw/ fatalsToBrowser warningsToBrowser /;
use Data::Dumper qw/Dumper/;
use CGI::Application::Dispatch;
$Data::Dumper::Sortkeys = 1;

$ENV{CGI_APP_DEBUG} = 1;

CGI::Application::Dispatch->dispatch(
    prefix  => 'My',
    default => 'MyApp',
    args_to_new => {
               TMPL_PATH => 'Templates/',
               PARAMS => {
                          cfg_file => $Bin . '/Konfiguration/dispatchtest.pl',
                          htmltidy_config => { config_file => $Bin . '/Konfiguration/tidy.conf', },
                         },
              },
);