my (undef, $can_read, $has_error) = $sel->select(undef, undef, undef);
foreach my $fh (@$can_read) {
   ...
}
foreach my $fh (@$has_error) {
   ...
}