#!/usr/bin/perl

use strict;
use warnings;

use HTML::Mason::CGIHandler;

use lib qw ( /wwwroot/A233122/html/cgi-bin/lib );

my $h = HTML::Mason::CGIHandler->new (
   data_dir  => '/wwwroot/A233122/tmp/mason',
   comp_root => $ENV{DOCUMENT_ROOT},
    
   error_mode => 'fatal', # Output to serverlog
);

$h->handle_request;
 
1;