use Email::MessageID; my $mid = Email::MessageID->new->in_brackets; print "Message-ID: $mid\x0D\x0A";
Although it may work on older versions of perl, no guarantee is made that the minimum required version will not be increased. The version may be increased for any reason, and there is no promise that patches will be accepted to lower the minimum required perl.
my $mid = Email::MessageID->new; my $new_mid = Email::MessageID->new( host => $myhost );
This class method constructs an Email::MessageID object containing a unique message-id. You may specify custom "host" and "user" parameters.
By default, the "host" is generated from "Sys::Hostname::hostname".
By default, the "user" is generated using "Time::HiRes"'s "gettimeofday" and the process ID.
Using these values we have the ability to ensure world uniqueness down to a specific process running on a specific host, and the exact time down to six digits of microsecond precision.
my $domain_part = Email::MessageID->create_host;
This method returns the domain part of the message-id.
my $local_part = Email::MessageID->create_user;
This method returns a unique local part for the message-id. It includes some random data and some predictable data.
header => [
...
'Message-Id' => Email::MessageID->new->in_brackets,
],
Don't make this common mistake:
header => [
...
'Message-Id' => Email::MessageID->new->as_string, # WRONG!
],
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.