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

##</code><code>##

C:\>perl -MFile::Spec::Functions -e "print catfile('//test/dir', 'test2');"
\\test\dir\test2