Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;

system('for %f in (\\\\testserver\\dir\\*) do echo %f >> testrpt.txt &
+& type %f >> testrpt.txt');