use Time::HiRes qw(gettimeofday);

$time = sprintf("%d%06d", gettimeofday());