use Time::HiRes qw(gettimeofday);

$id = gettimeofday();