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