$| = 1;

open(DATEI, ">$_[0]") or die $!;
   print DATEI $_[2];
   seek(DATEI, 1, 0);
   print DATEI $_[2];    
   close(DATEI);