#main.pl
use feature qw( :5.10 );
use strict;
use warnings;
use File::Temp qw/ tempfile tempdir /;
use Email::MIME;
use lib "/usr/local/mySystem";
use Gbl;
BEGIN{
  # Set some Globals for this environment
  $Gbl::runContext = $Gbl::runSMTP;  
  #$Gbl::runContext = 2;  
  $Gbl::pi_LogPath = "/tmp/primarylog.log" ;  # log 
  $Gbl::ds_LogPath = "/tmp/datalog.log" ;
}  
use parseHTMP;
use parseSMTP;
#...