my $destinationFile = "\\\\myinfoserver\\abc\\the directory\\";

##</code><code>##

system("copy $sourceFile $destinationFile > nul") == 0 ||  die "Database did not copy: $!";