Select Code to Download

    # ----------------------------------------------------------------
+----------------
    # Script header
...
    
    # Our global language variable
    our $syslang = undef;

    # Notice: this will work with Apache, cheap web-server might be a 
+serious issue!
    # a) Detect if we are called by the web-server or not
...
        undef $libdir;
    }

    # Setting the language 
    # This one is to fool the compiler! Don't ask!
...
    elsif ( uc($syslang) =~ /^FR/ ) { require FR; FR->import(); }
    elsif ( uc($syslang) =~ /^EN/ ) { require EN; EN->import(); }

    # Unloading the application language related module to force recom
+pile under mod perl
    foreach my $module ( grep(/utils.pm$|install.pm$|login.pm$/, keys(
+%INC)) ) { delete $INC{$module}; }
...
    require login; login->import();

    # ... your cgi code.