use strict;
use File::Find;
use File::Copy;
use Cwd;

my $Src = $ARGV[0];
my $Trg = $ARGV[1];
my $path = getcwd();

find (\&wanted, $Src);

sub wanted {
	opendir (DIR, "$path/$Trg") or die "cannot opendir $Trg";
	foreach my $file (readdir(DIR)) {
		if ($_ == $file) {
			print "File already in $Trg: $file\n";
		} else {
			copy("$_","$path/$Trg/$_");
			
		}
	}
	closedir (DIR);
}