package Gbl;
# simple holds Global data loaded from the config file eventually
use strict;
require  Exporter;
BEGIN{

}

my @ISA = qw(Exporter);
my @EXPORT = qw();
my @EXPORT_OK = qw();

use vars qw(
  $EmailAddr
  $VERSION
);
$VERSION = sprintf "%d.%03d", q$Revision: 1.0 $ =~ /: (\d+)\.(\d+)/;
$EmailAddr = "a\@b.com";

1;
__END__

##</code><code>##

$From = "$Gbl::EmailAddr";
....or somewhere else ...
if ($Sender =~  /$Gbl::EmailAddr/) { ...