my @dayofweek = (qw(Sun Mon Tue Wed Thu Fri Sat));
my @monthnames = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec));
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday, $isdst) = localtime();
$year += 1900;
my $ran_num = int(rand(100000)); #This is a 5 figure random number which ensures the MID is really, really unique!

# Create a Message Id
my $MID = sprintf("<%04d:%02d:%s:%s-%02d:%02d:%02d-%05d\@company_name.com>",
$year, $mday, $monthnames[$mon], $dayofweek[$wday], $hour, $min, $sec, $ran_num);