my $fh = File::Tail->new(name=>$filename,tail=>$lines);
$fh->nowait(1);
print $line while $line=$line->read;