-chmod 0644, $new_act_file;
-open ACTFILE, ">$new_act_file" or die "can't open $new_act_file: $!\n";
-print ACTFILE $actlines;
-close ACTFILE;
-chmod 0444, $new_act_file;
+my ($act_fh, $tab_fh, $h_fh) = map {
+ open_new($_, '>', { by => $0, from => $y_file });
+} $act_file, $tab_file, $h_file;
+
+print $act_fh $actlines;