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