sub FD_used {
    local *FD; opendir FD, "/proc/self/fd";
    return @{[readdir FD]} - 2;
};