Как засунуть текст в начало файла

Вот тут пишу скриптик и столкнулся с проблемой, как засунуть текст в начало файла, в котором уже есть немерянно текста?

[SCORP]

open (DATA,"your_file");
@filetxt=;
close(DATA);
open (DATA,">your_file");
print DATA "$yor_text
";
print DATA @filetxt;
close(DATA);

Но если немерянно текста, то будет тормозить..