Hey, Yeled,

Looks like you (unfortunately*) need to toss in a sleep (5), or even a
sleep (1) into the while(){} loop.

* I say unfortunately because you'd think that perl might handle
it; OTOH, perl might be behaving correctly.  You might actually want
something that tails a file as fast as it can...

On Sun, 5 May 2002, Charlie Allom wrote:

#   use File::Tail;
#   $file=File::Tail->new("/var/log/messages");
#   while (defined($line=$file->read)) {
#       print "$line";
#   }
# 


				--*greywolf;
--
NetBSD: It keeps on going...and going...and going...