use File::Tail;
my $name="/some/file/toread/";
    my $ref=tie *FH,"File::Tail",(name=>$name);
    while (<FH>) {
        print "$_";
    }