##






##

##

    # When it is print
    # Redirect to another web page
    if (param('S1') eq "Send") {
        print BOBIN $datajoin;
        print redirect("http://.../submitq.cgi");
    }


##

##

    if (param('S1') eq "Send") {
        print BOBIN $datajoin;
        
        
        foreach ($cgi->params()) {
           
        }
        
    }


##

##

    # When it is print
    # Redirect to another web page
    if (param('S1') eq "Send") {
        print BOBIN $datajoin;
        print redirect("http://.../submitq.cgi");
    }


##

##

    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.
    }


##

##

if (-e $datefile) {
    open (BOBIN, ">>$datefile") || die "Cannot Open File $datefile for
+ writing: $!"; # Open Data file
} else {
     ### Else open directory where files data files are located
     #   Sort in descending order, pick out first file
     #   And e-mail it
     #   Then create a new file with current data as name
     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