#! /usr/bin/perl

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

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