Perl запись в начало файла

open (FILEZAP, ">>filename");

print FILEZAP $coment;

close (FILEZAP);

пишет в конец файла. А нужно в начало.

Или проще при чтении переворачивать?

---------- Добавлено 15.11.2012 в 21:21 ----------

Нашёл.

open (FILE, "+<zz.txt");

seek FILE,0,0;

@file = <FILE>;

unshift (@file, "Запись в начало файла\n");

seek FILE,0,0;

print FILE @file;

close(FILE);

Работает.