use File::Copy;
use File::Find;

use strict;
use warnings;

my %files = map {$_ => 1} qw(data.txt datascript.pl);

find(sub {
	copy($File::Find::name, '.') or die "Can't cp $File::Find::name: $!"
		if delete $files{$_};
}, 'C:\\files');