#!/usr/bin/perl
use Time::HiRes qw(gettimeofday);

for (1..10) {
   ($secs, $micro) = gettimeofday();
   print "$secs.$micro\n";
}

##</code><code>##

1133364163.866375
1133364163.866375
1133364163.866375
1133364163.866375
1133364163.882000
1133364163.882000
1133364163.882000
1133364163.882000
1133364163.882000
1133364163.882000