sub generate_id {
  return substr(MD5->hexhash(time(). {}. rand(). $$. blah'), 0, 16);
}