if (-r $dir && -x $dir ){
    print "$dir => OK\n";
}