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

##</code><code>##

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