read (STDIN, $form_info, $size_of_form_info);
print TMP $form_info ;