use Fcntl qw/ :flock :seek /;
...
seek DATEI, 0, SEEK_SET;