Select Code to Download

# Note escaped slashes!
system("xcopy dos.bat \\\\machine.b\\share\\")

use Shell qw(xcopy);
xcopy("dos.bat", "\\\\machine.b\\share\\");

open LOCAL, "dos.bat" or die $!;
open REMOTE, "//machine.b/share/dos.bat" or die $!;
print REMOTE <LOCAL>;

use File::Copy;
copy("dos.bat", "//machine.b/share/dos.bat") or die $!;