Or use a counter:

{
  my $cnt = 0;
  sub unique {
     return $time() . $$ . $cnt++;
  }
}
$unique = unique();
[download]