The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl

use CGI::Snapp::Demo::Four::Wrapper;

use File::Spec;

# ----------------------------

my($doc_root)    = $ENV{DOC_ROOT} || '/dev/shm/html';
my($config_dir)  = File::Spec -> catdir($doc_root, 'assets', 'config', 'cgi', 'snapp', 'demo', 'four');
my($config_file) = File::Spec -> catfile($config_dir, 'config.logger.conf');

CGI::Snapp::Demo::Four::Wrapper -> new(config_file => $config_file, maxlevel => 'debug') -> run;