system("copy ..\\text.html \\\\system1\\shareddir");

##</code><code>##

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