if(-d 'w:\'){
 print "w:\\ is a directory\n";
 if(-R 'w:\'){
   print "w:\\ is readable\n";
 }else{
   print "w:\\ is not readbable\n";
 }
}else{
 print "w:\\ is not a directory\n";
}