Select Code to Download

my $file=File::Tail->new(name=>"/tmp/fakelogfile",maxbuf=>"1024",debug
+=>10);
open (OUT,">/tmp/fakeoutputfile") || fatal_error("Coudn't open output 
+file");
while (defined(my $line=$file->read)) {
print OUT "I got: $line";
}

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

...
Process 26422 detached