foreach (keys %files) {
    push(@tails,File::Tail->new(name=>$_,tail=>0,reset_tail=>0));
}
while (1) {
  ($nfound,$timeleft,@pending)=
          File::Tail::select(undef,undef,undef,$timeleft,@tails);
  foreach (@pending) {
      my $line=$_->read;
      process($line);
  }
}