sub navigate_Records {: 
   my $kind = $query->param('kind');
   my $rowpointer = $query->param('searchterm'); 
   my ($sth, $stmt);
   my @row;
   warn("Entered update_tables.cgi Open Database return First Record with action: = '$action'");   
   warn("Search Parameter = '$kind'");
   warn("rowpointer = '$rowpointer'");   
   ...