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