# Code derived from Email::MessageID 1.406 by Ricardo Signes
# http://cpansearch.perl.org/src/RJBS/Email-MessageID-1.406/lib/Email/MessageID.pm
use Sys::Hostname::Long qw/hostname_long/;
my @CHARS = ('A'..'F','a'..'f',0..9);
my %uniq;
sub create_mid {
	my $noise = join '',
		map {; $CHARS[rand @CHARS] } (0 .. (3 + int rand 6));
	my $t = time;
	my $u = exists $uniq{$t} ? ++$uniq{$t} : (%uniq = ($t => 0))[1];
	my $user = join '.', $t . $u, $noise, $$;
	return '<' . $user . '@' . hostname_long . '>';
}