opendir DIR, $homedir
        or warn "Cannot readdir $homedir:$!\n";