my $counter = 0; sub unique_stamp { return join '_', $$, time, $counter++; }