my $t = time;
  select(undef, undef, undef, 0.1) while time <= $t;
  $unique = "$t$$";