# --------------------------------------------------------------------------------
    # Script header
    # --------------------------------------------------------------------------------
    # Loading perl modules
    my $start = time();
    use FindBin qw($Bin);
    use File::Basename;
    use Cwd;
    use CGI qw/:standard *table tr td select/;
    use CGI::Carp;
    use CGI::Session;
    use Data::Dumper;
    use strict;
    
    # Our global language variable
    our $syslang = undef;