#! /usr/bin/perl

use strict;
use warnings;
use Time::HiRes ( gettimeofday );

for (my $i = 0; $i <= 10; $i++) {
    print "$i\tgettimeofday = " . gettimeofday() . "\n";
}

##</code><code>##

0        gettimeofday = 1090220890.53125
1        gettimeofday = 1090220890.53125
2        gettimeofday = 1090220890.53125
3        gettimeofday = 1090220890.53125
4        gettimeofday = 1090220890.53125
5        gettimeofday = 1090220890.53125
6        gettimeofday = 1090220890.53125
7        gettimeofday = 1090220890.53125
8        gettimeofday = 1090220890.53125
9        gettimeofday = 1090220890.53125
10       gettimeofday = 1090220890.53125