Как добавить текст в начало строки?

Question

[DimDimuch]

Помогите пожалуйста
Как в существующий файл tmp.txt, в котором есть строка добавить Privet?
Код должен прописан быть в самом перловском скрипте, а не вызовом из командной строки

Answer 1

[arto]

open F, "+<", "tmp.txt";
$a = do { local $/; };
seek F, 0, 0;
print F "Privet\n", $a;
close F;