Why do you want to map a network drive? You can simply copy the files directly by using their UNC name:

use File::Copy;

cp "\\\\$machine\\$sharename\\some\\directory\\and\\a\\file.txt", "her
+e.txt"
    or die "Couldn't copy: $!";
[download]