use mysession;

my $language; 

warn ("\n In index.cgi language=$ENV{'PATH_INFO'} \n");

if (defined ($ENV{'PATH_INFO'}) ) {
     $language = uc(substr($ENV{'PATH_INFO'}, 1)); 
 }
else {
     $language='en'; 
 }
 
init_session($language);
assign(LANGUAGE=>lc($language));
define(main=>'index.html');
parse(MAIN=>'main');
nice_exit();