my $tmpfilename = "$filename.tmp.$$";
open my $f, '>', $tmpfilename or die "$tmpfilename: $!";
fuelle($f);
close($f) or die $!;
rename($tmpfilename, $filename) or die $!;