Select Code to Download

c:\inetpub\test1
c:\inetpub\test2
c:\inetpub\test3

use File::Find;
use File::Copy;
...
    copy( sub {print "$_ target found\n" if -f and /\Q$srcfile\E/;},
         'C:\temp');
}