use CGI;
my $q = new CGI; 
my $function = $q->param('f');
my $id = $q->param('id');
my $table = $q->param('table');  
my $coder = $q->param('coder');

if ($function eq 'load') {
    loaddoc($id,$table,$coder,$data);
}
if ($function eq 'mark') {
    
    my $h = $q->param('h');
    my $t = $q->param('t');
    my $junk;
    ($junk,my $headsent,my $headword) =  split(/[sw]/,$h);
    ($junk,my $tailsent,my $tailword) =  split(/[sw]/,$t);
    warn "h: $h  t: $t hs: $headsent hw: $headword ts: $tailsent tw: $tailword";

    .
    .
    .
}