package Lanas::BaseClass;
use Env qw ( REMOTE_USER SCRIPT_NAME DOCUMENT_ROOT GATEWAY_INTERFACE MOD_PERL HTTP_REFERER HTTP_USER_AGENT );
# use warnings;
# use diagnostics;
use strict;
use vars qw( %key $USE_MOD_PERL );
*key = \%Lanas::Base::key;

use subs qw(exit);