#! /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;