my $command= <<'COPY';
copy "\\$mach\c$\Pgm File\Reso\log\agent-dir.$mach\agnt-log" C:\reslog
COPY
chomp $command;
$command =~ s/\$mach/$mach/g;
system $command;