use Errno qw( EINTR );

for (;;) {
    my @ready = $select->can_read()
        or do { next if $! == EINTR;
                last;
              };

    for my $fh (@ready) {
        ...
    }
}