Help for this page

Select Code to Download

Select or download this

if (my @s = $select->can_write()) {
  for (@s) {
...
    }
  }
}