foreach (@ARGV) {
    push(@files,File::Tail->new(name=>"$_",debug=>$debug));
}
while (1) {
  ($nfound,$timeleft,@pending)=
        File::Tail::select(undef,undef,undef,60,@files);
  foreach (@pending) {
    print $_->{"input"}." (".localtime(time).") ".$_->read;
  }
}