open(DAT, "+>$data_file") || die "[$data_file]$!";
my @inhalt = <DAT>;
#machwas
print DAT @inhalt;
close(DAT);