use File::Spec;
use File::Copy;

$folder1=File::Spec->catdir('//computerA','share','folder');
$folder2=File::Spec->catdir('//diffcomputer','share','new folder');

copy "$folder1/file.txt", "$folder2/new_file.txt" or die "Cannot copy file.txt from $folder1 to $folder2. $!";