Skrivning til fil !1

Når man skriver til en tekstfil i PERL kan man gøre følgende:

open (DATABASE, \">>$logfile\") || die (\"$txt{\'6\'}\");
print DATABASE \"$input\\n\";
close (DATABASE);

Dette appender en linie nederst i tekstfilen, men jeg har brug for at tilføje en linie i toppen af tekstfilen.

Er der nogen af jer kloge hoveder, der kender til den korrekte syntaks, for at kunne gøre dette.