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