for (my $line_num = 1; $line_num <=6000; $line_num++) {
  open LOG,">>/tmp/fakelogfile";
  print LOG "$line_num\n";
  close LOG;
}