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 $!;