an den datei anfang schreiben

[roman lenz]

hi hi

ich möchte an den anfang einer datei noch was schreiben.
mit seek kann ich den dateizeiger an den Anfang der datei setzen.

kann ich ssek auch mit printf verwenden?
mit meiner format anweisung klappt es leider auch nicht.

Wie kann ich an den Anfang einer Datei schreiben??

sub schreib_kopf {
 open(DAT,'>> '.$DIRsave.'werte.txt') || ($meld="Werte schreiben",&kill());
    seek(DAT,1,0);
format STDOUT =
       Datum: @<<<<<<<<<<<<<<<<<<<<<<<<<<<   OEM: @<<<<<<<<<<
$CTIME,$oem
.
  write;

close(DAT);

besten dank

bis bis roman