open(OLDFILE, "/home/froschpopo/file.txt") or die $!;
flock OLDFILE, 2;
@content = <OLDFILE>;
close(OLDFILE);

open(FILE, ">/home/froschpopo/file.txt") or die $!;
flock FILE, 2;
print FILE @content;
close(FILE);