0       gettimeofday = 1090223680.83084
1       gettimeofday = 1090223680.83102
2       gettimeofday = 1090223680.83107
3       gettimeofday = 1090223680.8311
4       gettimeofday = 1090223680.83116
5       gettimeofday = 1090223680.8312
6       gettimeofday = 1090223680.83123
7       gettimeofday = 1090223680.83128
8       gettimeofday = 1090223680.83131
9       gettimeofday = 1090223680.83135
10      gettimeofday = 1090223680.83139

##</code><code>##

#! /usr/bin/perl

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

for (my $i = 0; $i <= 10; $i++) {
  my $file = "tmp-" . gettimeofday();
  open OUT, '>', $file or die "Cannot open $file for output: $!\n";
  print OUT $i, "\n", gettimeofday(), "\n";
  close OUT;

##</code><code>##

tmp-1090224255.75149
tmp-1090224255.75175
tmp-1090224255.75188
tmp-1090224255.752
tmp-1090224255.75212
tmp-1090224255.75224
tmp-1090224255.75237
tmp-1090224255.75249
tmp-1090224255.75261
tmp-1090224255.75273
tmp-1090224255.75285