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

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