copy($old, $new_files) or die "Copy failed: $!";