use strict; 
my $listFile = "C:\\theDoc.doc"; 
my $listFile2 = "\\\\theinfoServer\\dir\\"; 
open(LIST, $listFile) || die "Cant open $listFile : $!"; 

while(<LIST>) 
{ 
  #Can I put a Exception statement for this system command?  I am not familiar with Exceptions in Perl
  system("copy $listFile $listFile2 > nul"); 
} 
close(LIST); 
print "Successfully copied\n";