#!D:\perl\bin\perl -w





$listFile = "list.txt";


open(LIST, $listFile) ||


  die "Cant open $listFile : $!";





while(<LIST>) {


  system("copy \\\\$_\\c$\\Program Files\\Resonate\\logs\\agent-dir.$_\\agent-log C:\\resologs");


}





close(LIST);