# required modules
use CGI;
use CGI::Ajax;

# html generation depending upon session info
# begining html code
if ($session-start)
print $cgi->p("user no" . $session->id);
else
print $cgi->p("guest");
# remaining html code


# ajax call
my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func);
print $pjx->build_html($cgi, \&htm);