#!/usr/bin/perl

use warnings;
use strict;

my $data_file     = "";
my $data_file_tmp = "";

open(DAT, "<$data_file")     or die $!;
open(NEU, ">$data_file_tmp") or die $!;

my @inhalt = <DAT>;
print NEU @inhalt;

close(DAT) or die $!;
close(NEU) or die $!;

rename($data_file_tmp, $data_file);

1;