my $source=
    "//$mach/c\$/Pgm File/Reso/log/agent-dir.$mach/agnt-log";
my $command= qq(copy "$source" C:/reslog);
$command =~ s#/#\\#g;
system $command;