use Time::HiRes qw(gettimeofday);
my ($secut,$musec) = gettimeofday;
my ($uniqueid) = sprintf("%010d%06d%05d", $secut, $musec, $$);