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";

    .
    .
    .
}


##</code><code>##

[Sat Mar 21 13:15:36 2009] [error] [client 127.0.0.1] h:   t: s43w29 hs:  hw:  ts: 43 tw: 29 at C:/xampplite/cgi-bin/unitize.pl line 31., referer: http://localhost/cgi-bin/unitize.pl?f=mark&id=659&coder=1&table=test&h=s39w9&t=s39w25