Select Code to Download

use File::Find;
use strict;
...
    find( sub {print "$_ target found\n" if -f and /\Q$srcfile\E/;},
         'D:\Projects\perl\targ');
}