C:\> perl -e "print 1 if (-d \"w:\")"
C:\> perl -e "print 1 if (-R \"w:\")"