sub wanted{
    print $File::Find::name if -d _ and -r _;
}