use Fcntl qw/O_WRONLY O_TRUNC/;

sysopen my $fh, $datei, O_WRONLY | O_TRUNC or die $!;