open my $fh, '+<', $file or die "Can't open '$file': $!\n";
flock $fh, LOCK_EX or die "Can't lock file '$file': $!\n";
truncate $fh, 0;
print {$fh} $content;
close $fh or die "Can't close '$file': $!\n";