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";
            return;
        } 
    }
    copy("$_","$path/$Trg/$_");
    closedir (DIR);
}