Select Code to Download

<form ...>
<center><input type=submit value=Send name=S1></center>
</form>

<form method="POST" action="http://.../submitq.cgi">
<center><input type=submit value=Send name=S1></center>
</form>

    # When it is print
    # Redirect to another web page
...
        print BOBIN $datajoin;
        print redirect("http://.../submitq.cgi");
    }

    if (param('S1') eq "Send") {
        print BOBIN $datajoin;
...
        }
        </form>
    }

    # When it is print
    # Redirect to another web page
...
        print BOBIN $datajoin;
        print redirect("http://.../submitq.cgi");
    }

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

if (-e $datefile) {
    open (BOBIN, ">>$datefile") || die "Cannot Open File $datefile for
+ writing: $!"; # Open Data file
...
     open (BOBIN, ">$datefile") || die "Cannot create File $datefile f
+or writing: $!";
}

open (BOBIN, ">>$datefile") || die "Cannot Open File $datefile for
+ writing: $!"; # Open/Create Data file