Update
use File::Tail; my $ref=tie *FH,"File::Tail",(name=>$name, tail=>1); print "$_"; [download]
In reply to Re: tail -1 emulation efficiency by coec in thread tail -1 emulation efficiency by woodstea