C:\>perl -e "print -d 'C:\Windows'"
1
C:\>perl -e "print -d 'C:/Windows'"
1
C:\>perl -e "print -d '\\server\share'"

C:\>perl -e "print -d '//server/share'"
1