my $newfile = "$file.new";
    open(my $fh, ">", $newfile) or die "$newfile: $!";
    print $fh $content;
    close($fh);