Select Code to Download

open(TAIL, "tail -f /var/log/messages |") or die "etc";
while (<TAIL>)
...
  if(/type2/) { print SUBLOG2 $_; }
  # etc
}

my $sel = IO::Select->new();
for(iterate through obj array with filenames)
...
    }
  }
}