##
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 ;
use File::Copy;
copy("dos.bat", "//machine.b/share/dos.bat") or die $!;