or die "$ProgramName: Failed to open file '$File' for writing ($!)\n";
if (length($newContent)) {
my $wb = syswrite($FileHandle, $newContent);
or die "$ProgramName: Failed to open file '$File' for writing ($!)\n";
if (length($newContent)) {
my $wb = syswrite($FileHandle, $newContent);