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