open (STREAM,">$dateiname");
print STREAM $data;
close STREAM;