open(OUT, "+<$logfile");
flock(OUT, 2);
truncate(OUT, 0);
seek(OUT, 0, 0);
print OUT "hogehoge\n";
close(OUT);

みたいな感じかな・・・