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";
}