#!D:\perl\bin\perl 
use File::Copy;

$listFile = "list.txt";

open(LIST, $listFile) ||
  die "Cant open $listFile : $!";
while(<LIST>) {
  copy("\\\\$_\\c$\\testtxt.txt,C:\\resologs,");
}
close(LIST);