copy($File::Find::name, '.') or die "Can't cp $File::Find::name: $!"