Div1:

Div2:

#### ### link js func to perl func my $cgi = new CGI(); my $pjx = new CGI::Ajax('test' => \&testAjax); ### perl func sub testAjax { return( @_ ); } #### ### Inside main script my $urlFunc = '/html/cgi/test.pl'; my $pjx = new CGI::Ajax('test' => $urlFunc); ### the file test.pl code: use cgi qw( :standard -debug); my $q = CGI->new; print $q->header; print ($q->param('xxx'), $q->param('yyy'));