Help for this page

Select Code to Download

Select or download this
copy("$File::Find::name","C:\\temp\\/$_");

Select or download this

#! perl -w
use strict;
...
for my $file (@select_files) {
    copy catfile($line,$file), catfile("C:\\temp", $file);
}