sub print_response_form{
     print "<FORM METHOD=\"post\" ACTION=\"post.pl\">\n";
     print "<INPUT TYPE=\"hidden\" NAME=\"action\" ";