Help for this page

Select Code to Download


  1. or download this
    use UUID::Tiny qw/:std/;

my $msgid = sprintf('<%s@%s>', create_uuid_as_string(), $ENV{HOST});
  2. or download this
    sub create_uuid_as_string {
  my $uuid = `uuidgen`;
...
}

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