use strict;
use Time::HiRes qw(time);

my $uniq_value="$$" . time;