open (STREAM,">$dateiname") or die $!;
binmode STREAM;
print STREAM $data;
close STREAM;