Help for this page
my $destinationFile = "\\\\myinfoserver\\abc\\the directory\\";
system("copy $sourceFile $destinationFile > nul") == 0 || die "Databa +se did not copy: $!";