read(STDIN,$form_data,$ENV{'CONTENT_LENGTH'});
open (FILE,"something.log");
print $form_data;
close(FILE);