#GBL.pm
package Gbl;
#== Context ============
our $runHTTP = 1;
our $runSMTP = 2;
our $runContext = $runHTTP;  # HTTP ...variable assignment might be after BEGIN
#our $runContext = 1;         # HTTP ...variable assignment might be after BEGIN
# ...
1