in reply to Sub-second Timing in Timestamps

use Time::HiRes qw(gettimeofday);

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

[download]

In Section Seekers of Perl Wisdom