#  Setup up
#  Variables
#  and define work fields
if (-e $datefile) {
    open (BOBIN, ">>$datefile") || die "Cannot Open File $datefile for writing: $!"; # Open Data file
} else {
     ### Open directory where files data files are located
     #   Sort in descending order, pick out first file
     #   And e-mail it
     }
     open (BOBIN, ">$datefile") || die "Cannot create File $datefile for writing: $!";
}

if (!(param())) {
   # Do stuff
   # By processing data
   # put up web page
   # with formatted data 
   <form>
   <center><input type=submit value=Send name=S1>
   </center></form>
} else {
    if (param('S1') eq "Send") {
        print BOBIN $datajoin;
        use CGI; print redirect("http://www.gailborden.info/services/bob/submitq.htm");}
}
close(BOBIN);