use File::Tail;
    my $ref=tie *FH,"File::Tail",(name=>$name, tail=>1);
    print "$_";