system("copy \\\$mach\\c$\\Pgm File\\Reso\\log\agent-dir.$mach\agnt-log C:\\reslog");

##</code><code>##

copy \$mach\cPgm File\Reso\log^Ggent-dir.opus\agnt-log C:\reslog

##</code><code>##

copy "\\opus\c$\Pgm File\Reso\log\agent-dir.opus\agnt-log" C:\reslog

##</code><code>##

"copy \"\\\\$mach\\c\$\\Pgm File\\Reso\\log\\agent-dir.$mach\\agnt-log\" C:\\reslog"

##</code><code>##

'copy "\\\\' . $mach . '\\c$\\Pgm File\\Reso\\log\\agent-dir.' . $mach . '\\agnt-log" C:\\reslog'

##</code><code>##

'copy "\\' . $mach . '\c$\Pgm File\Reso\log\agent-dir.' . $mach . '\agnt-log" C:\reslog'

##</code><code>##

copy "\opus\c$\Pgm File\Reso\log\agent-dir.opus\agnt-log" C:\reslog

##</code><code>##

'copy "\\\\' . $mach . '\c$\Pgm File\Reso\log\agent-dir.' . $mach . '\agnt-log" C:\reslog'

##</code><code>##

qq(copy "\\\\$mach\\c\$\\Pgm File\\Reso\\log\\agent-dir.$mach\\agnt-log" C:\\reslog)

##</code><code>##

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

##</code><code>##

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;

##</code><code>##

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;