You could also try something like:

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

my $file=File::Spec->catfile('\\serverA','dir','subdir','file');
my $newfile=File::Spec->catfile('\\serverB','dir','subdir','file');
my $errorfile=File::Spec->catfile('\\serverA','error_dir','file');

copy $file, $newfile or warn "Unable to copy $file to $newfile. $!";
if ($? > 0) {
 copy $file, $errorfile;
} elsif ($? == 0) {
 unlink $file;
}
[download]

Or something along those lines, but what if you are unable to make the second copy? or what if you are unable to unlink or otherwise remove the file? I'd also recommend using File::Spec to help with the paths and directory seperators, helps make it a bit cleaner, IMO :-)

update: Fixed the tags that were borked

---

"Ex Libris un Peut de Tout"