#!/usr/local/bin/perl -w

my $file = 'd:\log_test';
my $version = $ARGV[0]?$ARGV[0]:'0';
my $count = 0;

while ($count++ < 1000)
{
  open OUT, ">>$file" or die "Could not open file $count\n$!\n";
  print OUT time," $version lots of useless text $count\n";
  close OUT;
}