"doh! can't read directory $file!\n"
    if (-d $file and not -r $file);