C:\>perl -e "print(qq|copy ..\text.html \\system1\shareddir|);"
copy .. ext.html \system1shareddir