http://qs1969.pair.com?node_id=139320


in reply to Active Munging via a pipe (code)

How about using File::Tail? 
use File::Tail;
$file=File::Tail->new("/some/log/file");
while (defined($line=$file->read)) {
    print "$line";
}

[download]
HTH,

/prakash

In Section Seekers of Perl Wisdom