open FH,"+>>test.txt";
seek FH,0,0;
print FH "ファイルの先頭";
close FH;

これを実行したら何故かファイルの末尾にかかれました。
seekが効いてないのでしょうか？