open (FH, ">/temp/tempfile"); print FH $temporary_data;