use Errno qw( EINTR );

while ($select->count()) {
    my @ready = $select->can_read()
        or do { next if $! == EINTR;
                last;  # Should be die("select: $!\n");
              };

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