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