@header = ('BEGIN','WAFC','AREA_NAME','NODS','R','U','001','040','NONE','200103231510','NONE','AREA_NAME','END');


if(open(OUTFILE, "> $temp_header") || die("Cannot Open File $temp_header for writing")) {
	
	foreach $line ( @header ){
		print OUTFILE $line."\n";
		print "$line \n";
		}

	if(open(OUTFILE2, "< $sample_upload") || die("Cannot Open File $sample_upload for reading")) {
		while (my $bytesread = read($sample_upload, my $buffer, 1024)) {
			print OUTFILE $buffer; 
	  		}
		}
       	 close (OUTFILE);
	 close (OUTFILE2);