use UUID::Tiny qw/:std/;

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

##</code><code>##

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

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