open(LIST,$List) or die "Can't read $List: $!";
while (<LIST>) {
    chomp(my $Server = $_);
	my $source1 = "C:/ChPass/phrase.txt";
	my $dest1 = "//$Server/c\$/temp/phrase.txt";
	print $dest1;
	my $command = qq(copy "$source1" "$dest1") or die "Couldn't copy $source1: $!";
	$command =~ s#/#\\#g;
	system $command;
	print " I finished the first command.\n";
	
	    my $source2 = "C:/ChPass/ChPass.exe";
	    my $dest2 = "//$Server/c\$/temp/ChPass.exe";
	    my $command2 = qq(copy "$source2" "$dest2") or die "Couldn't copy $source2: $!";
	    $command2 =~ s#/#\\#g;
		print $command2;
	    system $command2;
		print " I finished the second command.\n";
		print $Server . "\n";