Select Code to Download

use File::Copy;
open(RFH, "<ReadFile.h") or die "Trying:$!";
...
close WFH;

move ("WriteFile.h", "ReadFile.h") or die "With a vengance:$!";

$^I = '.old';
@ARGV = ("header.h");
...
   s/search/replace/;
   print;
}