if (param('S1') eq "Send") {
        print BOBIN $datajoin;
        require LWP::UserAgent;
        require HTTP::Request::Common;
        $ua = ...;
        $ua->request(POST 'http://.../submitq.cgi', [ params ]);
        print the response.
    }