print "<hr>";
print "<form>";<br>
print "<center><input type=button value=Send name=S1 onclick=sendq>";
print "</center></form>";
print "</font></body></html>";

sub sendq {
    #print BOBIN $datajoin;
    use CGI; print redirect("http://www.gailborden.info/services/bob/submitq.htm");
}