perl -MFile::Tail -E '$f = File::Tail->new(q[/var/log/foo/bar.log]); print $l while $l = $f->read' #### perl -MFile::Tail -E '$f = File::Tail->new(name=> q[/var/log/foo/bar.log], tail=>10, maxinterval=>0.5); print $l while $l = $f->read'