use UUID::Tiny qw/:std/;

my $msgid = sprintf('<%s@%s>', create_uuid_as_string(), $ENV{HOST});