#main.pl
use Gbl;
BEGIN{
  $Gbl::runContext = $Gbl::runSMTP;
}  
...

##</code><code>##

# GBL.pm
package Gbl;
our $runSMTP = 2
1;