sub create_uuid_as_string {
  my $uuid = `uuidgen`;
  chomp $uuid;
  return $uuid;
}

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