my @readable = $s->can_read(1);
foreach(@readable) {
  # Now $_ is the readable filehandles
}